$ perl -MFile::Basename -le '$f="data/myfile.soft";$b=basename($f,".soft"); print $b' # output: myfile