Help for this page

Select Code to Download

Select or download this

    # Get type. Right now, all are BAC's.
    if ($line =~ m/\b((B|Y)AC)\b/)
...
      $read_frame = $2;
    }

Select or download this

    # Get type. Right now, all are BAC's.
    ($type) = $line =~ m/\b([BY]AC)\b/; # regex change
...
    # Get whether forward or reverse
    ($orient, $read_frame) =
      $line =~ m/ORIENTATION:\s*(\w)_(\d)/; # regex change