Regex Match Problem

Select or download this

#! usr/bin/perl -w

...

close OUTPUT;
close TRASH;

Select or download this

>GJVIMO101AUT0H length=45 xy=0234_0223 region=1 run=R_2010_07_01_11_09
+_50_
ACGACACGTATACGTGCGTGTCGCGTCTCTCAGCACACAGAGTAG
...
>GJVIMO101ALCLG length=100 xy=0126_0114 region=1 run=R_2010_07_01_11_0
+9_50_
ACGACACGTATGCTGCTGGTGCTGCTGTAACAGTTCCTGCTGATGCTGCAAGTGCTGCTG
CTGTAACTGTTGCTGCTGTAATCTCTGCTGCTGCTGCTGT

Select or download this

ACGACACGTAT

Select Code to Download