Select Code to Download

my $string = '~/tmp/hfj/abc/bhd/5009.xmlreal.xml';
$string =~ s/^.*\/\d+//;
print "$string\n";

use File::Basename;
$string = '~/tmp/hfj/abc/bhd/5009.xmlreal.xml';
my ($filename, $directories, $suffix) = fileparse($string);
$filename =~ s/^\d+//;
print "$filename\n";