use strict;
use warnings;

my $string = "   now is the \ntime for all     \n       good men to come    \n          to the aid\n";



$string =~ s/^\s+//mg;
$string =~ s/\s+$//mg;

print $string, "\n";