> Ещё 1 символ выгадываем, заменив @y на @; и опустив ; в конце: У меня syntax error at last.pl line 2, at EOF лезет. Но круто все равно, потому что теперь можно написать без пробелов (-2 символа): $n=@;if/x/;$p[1]=@;if/o/