print "$1\n" if $filename =~ m/\.([^.]+)$/;