Перевод Perl в PHP

[BFox]

Есть кусок года...

map {$hash_forms{substr(substr($word,0,$base_pos).$_,0,3)}++} split /\|/, substr($profiles[unpack("n",$profile_num)],1);

а вот как его корректно перевести на PHP не знаю, подскажите люди плиз!!!