$str = reverse $str;
$str =~ s/^.*?://;
$str = reverse $str;