my $str = "tar a rat at ararat";
reverse($str) =~ /ta(.*?)ta/;
print scalar(reverse($1)), "\n"; # prints: " arar\n"