Help for this page
while (<FF>) { next unless /XXXX/; ... print $_ ; }
while (<FF>) { next unless /XXXX/; print <FF>; }