$str =~ s/^\s+//;
$str = reverse($str);
$str =~ s/^\s+//;
$str = reverse($str);