# Get type. Right now, all are BAC's.
    if ($line =~ m/\b((B|Y)AC)\b/)
    {
      $type = $1;
    }
    
    # Get reference number.
    if ($line =~ m/BAC:\s*(.*)\s*$/)
    {
      $ac_id = $1;
    }

    # Get whether forward or reverse
    if ($line =~ m/ORIENTATION:\s*(\w)_(\d)\s*$/)
    {
      $orient = $1;
      $read_frame = $2;
    }


##</code><code>##

    # Get type. Right now, all are BAC's.
    ($type) = $line =~ m/\b([BY]AC)\b/; # regex change
    
    # Get reference number.
    ($ac_id) = $line =~ m/BAC:\s*(.*)\s*$/;

    # Get whether forward or reverse
    ($orient, $read_frame) =
      $line =~ m/ORIENTATION:\s*(\w)_(\d)/; # regex change