if($filename=~/(\w+)\.(\w{3})/gi){print "\nThis is a match::$filename\n"}else{print "\nNOMatch::$filename\n";}