use File::Basename;

my $fname = "/usr/local/isp/system.update.perl";
my ($name, $path, $suffix) = fileparse($fname, '\.[^\.]*');

print STDOUT $name, "\n";