perl one line, array?

perl -ne '@a=split(/(^[a-z]{3}-[a-z]{2,3})/,$str); if($a[0]!=$a[1]) { print "$str\n"; }'

только если в @a будет массив строк, то сравнивать их нужно не оператором != , а оператором ne

> perl -ne ' BEGIN { @a=split(/(^[a-z]{3}-[a-z]{2,3})/,$str)};

Что есть $str?

> if($a[0]!=$a[1]);

И чё дальше?

> END { print "$str\n"; }'

Походу дела тебе надыть perl подучить. Чтобы хотя бы понимать КОГДА вызывается код из BEGIN и END и как правильно пейсать онлайнеры.

> split(/(^[a-z]{3}-[a-z]{2,3})/

А это вообще бред. Сплит по регэкспу с якорем '^';

perl -ne '@a=/^([a-z]{3})-([a-z]{2,3})/;$a[0] ne $a[1] && print' <file>

Может что-то типа того?

P.S. Если я правильно понял исходные, то на awk еще проще:

gawk -F- '$1!=$2' <file>

> gawk -F- '$1!=$2' <file>

perl -a -F- -ne 'print if $F[0] ne $F[1]'