trim a string #2

$string = ~ s /^\s+//;
$string = ~ s /\s+$//;