$ext="i_am_the_walrus.txt";
$ext=~s/^[^.]*(\.[\w]+$)/$1/;
print $ext;