perl -e"$a='СЮДА СТРОКУ';@a=split//,$a;print'chr('.ord($a[$_]).').'for(0..$#a)"