Btw: with a while(<...>) - loop, you can find out about the current line by reading the content of the special Variable $. as long as the Filehandle is still opened. But if you change the variable $/ , $. will give you the number of read blocks (what a block is, is said in $/ ).
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v18.104.22.168.11.32"