in reply to How do I remove whitespace at the beginning or end of my string?

my $string = q{     this is a string     };
$string = reverse unpack('A*',reverse(unpack 'A*',$string));
print "<$string>\n";

[download]
  • Comment on Re: How do I remove whitespace at the beginning or end of my string?
  • Download Code

In Section Seekers of Perl Wisdom