while(my $line=<$fh>) {
  my $sign = '';
  if ($line=~/Sign|Antigrief/) { 
    $sign = $line; 
  } elsif ($line=~/Line/ && grep {$line=~/$_/} @barwords) {
    if ($sign) {
      print $sign;
      $sign = '';
    }
    print $line; 
  }
}