$file=~/\.(\w+)$/;