use String::Util qw(trim)
my $s = trim('  here are lots of nasty spaces        ');