1 temp=/tmp/oneliner$$

2 while read l

3 do

4 dict -h dictd.xdsl.by -d mueller24 "$l" 2> /dev/null | perl -n -e 'print if ($y and not /^\s*$/) ; $y=1 if /'$l'/;' | grep -v _Syn | grep -v _Ant > $temp

5 if [ `wc -l $temp | awk '{print $1}'` = 1 ]

6 then

7 echo -n $l

8 cat $temp

9 fi

10 done

11