while (<FF>) {
     next unless /XXXX/;
     $. += 1;  ### obviously this does not work ...
     print $_ ;

}

##</code><code>##

while (<FF>) {
     next unless /XXXX/;
     print <FF>;
}