# code to remove '.z' from $str

# old way (slow)
$str = join '.', 'a' .. 'z';
$str =~ s/(.*)\..*/$1/;

# new way (fast)
$str = join '.', 'a' .. 'z';
$str =~ s/.*\K\..*//;