Hi to all, this is my 1st japh.
I hope you enjoy it. Don't be bad

hopes
perl@programacionweb.com

#!/usr/bin/perl -w
use strict;$|=1;$_=join'',<DATA>;sö\söögs;@{{}=split mës234së;
${{}[${[}+${|}]=join"",map{~chr}split mësë,${{}[${[}+${|}];
$_=${{}[${[}],eval${{}[${[}+1];print"\n";__DATA__
181s138s140s139s223s158s145s144s139s151s154s141s223s143s154s141s
147s223s151s158s156s148s154s141s234s146s158s143s132s140s147s154s
154s143s223s143s141s150s145s139s223s129s156s151s141s130s140s143s
147s150s139s223s146s20s140s20
[download]