use File::Basename; my $gds_file = "data/myfile.soft"; my $base = basename($gds_file,".soft");