my $val = " Smart Way "; $val =~ s/^\s+|\s+$//g; print '>', $val, '<';