$ perl -MO=Deparse,-p -e 'print $fh $lsep if $rows++ and $lsep;'
((($rows++) and $lsep) and print($fh $lsep));
-e syntax OK
$