Trim a string using Perl
Answer:
To trim a string in Perl, use the following subroutine - trim():
#!/usr/bin/perl
use strict;
sub trim($) {
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
return $string;
}
print trim (' foo ');