my $fullpath = "/blah/blah/blah/blah/file1.pl";
my ($filename) = $fullpath =~ m!([^/]+$)!;
print "$filename\n";
[download]