my ($name,$ext)=split(/\./,$_);