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