my @bangs = $record =~ m/^[^\n]*\![^\n]*\n/mg;
  $record =~ s/^[^\n]*\![^\n]*\n//mg;