$str = '  say  as  simple  as  a   b   c  :-)  ';
$str =~ s/^\s+|\s+$//g, $str =~ tr/ /_/s, print $str;
[download]