$filename = "/foo/bar/myfile.txt";

($ext) = $filename =~ m/\.(\w+)$/;

print $ext;