use strict;
use warnings;
use File::Basename;

my $s = "/home/virtual/path/to/www/some/directory/filename.txt";

print basename($s,'.txt') . "\n";