$filename =~ /\./;
substr($filename, $-[0]+1) =~ s/\.//g if @-;