while(<FILE>){
  next if /^matches messy header/;
  chomp;
  if (/matches some string/){
    my $next_line = <FILE>;
    # do something to $next_line here
    print "$_, $next_line\n";
  }
}