perl -ne " do_stuff() ; print $. . ' '" exportB.xml