You're using parens where you should be using curlies. (And '_' doesn't need escaping.)

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

which is pretty much the same as the following

s/\w{6}_//;
[download]

The following should be faster, though:

$_ = substr($_, -4);
[download]