s/\w{6}_(\d{4})/$1/; #### s/\w{6}_//; #### $_ = substr($_, -4);