($junk, $extension)=split/\./,$1;/;