perl -e ';
eval{alir tsuj}; 1 while($b[$j++]=chop($@)); print @b;'