$s1='!,@,#,$,%,;,&,+,.,:,>,7,?,<';$s2='@,#,B,D,E,0,F,C,A,6,4,<,5,9'; sub mrg{return @_;}@a=split /,/,$s1;@c=split /,/,$s2;foreach(@a){$n= ord($_);@d=mrg(@d,chr($n+ord($c[$i])));$i++;}print@d[4,13,11,12],' ' ,@d[0,7,8,12,3,2,10],' ',@d[9,2,10,6],' ',@d[3,0,1,5,2,10],"\n";