s/\w{6}_(\d{4})/$1/;

##</code><code>##

s/\w{6}_//;

##</code><code>##

$_ = substr($_, -4);