#! perl -sw
use strict;

my %outFHs = map {
   open my $fh, '>', "$_.fastQ" or die $!;
   $_ => $fh;
} qw[ TTGT GGTT ACCT ];

until( eof() ) {
    my @lines = map scalar <>, 1 .. 4;
    my $barcode = substr $lines[1], 0, 9;
    my $tag = substr $barcode, 3, 4;

    next unless exists $outFHs{ $tag };
    print { $outFHs{ $tag } } @lines;
}
__END__
usage:
thisScript theBigfile.fastQ

## outputs to TTGT.fastQ GGTT.fastQ ACCT.fastQ
## Unrecognised records are ignored