if ($myvar =~ m/\.([^.]+)$/) {
print "Matched $1";
}