Trimm leading and tailing white space

#
# trim leading and trailing white space of a single line
#
$line =~ s/^\s*(.*?)\s*$/$1/; 
#
# trim leading and trailing white space of an array of lines
#
map { $_ =~ s/^\s*(.*?)\s*$/$1/} @lines;