# trim whitespace
$string =~ s/^\s+//;
$string =~ s/\s+$//;