Help With Computer Programming code

Does anyone know what Language the following code belongs too?
Im trying to crack it from an ARG...and i cant find the source

heres the code

$_='&01651841&216918213216616916&1&513216816
91831691821861691681321841&91321681&3169';$/=&_(
$_);@_=map{chr}@{$/};eval join('',@_);sub _ {
$_=shift;s/&/7/g;@_=split/1/;unshift(@_,112,114,105,110,
116,32,34); push(@_,34,59);\@_;}

thanks

 

It's perl

 

Thanks a lot