$ perl -E '
> $str = q{~/tmp/hfj/abc/bhd/5009.xmlreal.xml};
> ( $path = ( split m{/}, $str )[ -1 ] ) =~ s{^\d+}{};
> say $path;'
.xmlreal.xml
$