Shell Programming and Scripting

@HWI-ABC123_30DFGGDA:1:100:3:1234
ACGTAGTACCCGGGTTTTTTTTTAAAAAAA
+HWI-ABC123_30DFGGDA:1:100:3:1234
hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
@HWI-ABC555_30DFGGDA:1:100:3:1234
GGGTTTTTTTTTAAAAAAAGGGGGGGGGGG
+HWI-ABC123_30DFGGDA:1:100:3:1234
]]]]]]]]]]hhhhhhhhhhhhhhhhhhhhhhhhhhhh
@HWI-ABC467_30DFGGDA:1:100:3:1234
ACGTAGTACCCGGGTTTTTTTTTAAAAAAA
+HWI-ABC467_30DFGGDA:1:100:3:1234
hhhHHHHhhhhhhhhhhhhhhhhhhhhhhhhhhh
@HWI-ABC889_30DFGGDA:1:100:3:1234
GGGTTTTTTTTTAAAAAAAGGGGGGGGGGG
+HWI-ABC889_30DFGGDA:1:100:3:1234
hhhhhhhhhhhhhhhhhhhhhhhhhhhh]]]]]]]]]]
.
.
.
.
.
.

@HWI-ABC123_30DFGGDA:1:100:3:1234
ACGTAGTACCCGGGTTTTTTTTTAAAAAAA
+HWI-ABC123_30DFGGDA:1:100:3:1234
hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
@HWI-ABC555_30DFGGDA:1:100:3:1234
 GGGTTTTTTTTTAAAAAAAGGGGGGGGGGG
+HWI-ABC123_30DFGGDA:1:100:3:1234
 ]]]]]]]]]]hhhhhhhhhhhhhhhhhhhhhhhhhhhh

#! /usr/bin/perl

use strict;
use warnings;

open ( IN, "data" ) || die "Perl blew up\n";

my $lookup;
my @temp;
my @keep;
my $nuc;

while (<IN>) {

    push @temp, $_;

    if ( /^([A-Z]{30})$/ ) {
       $nuc = $1;
       ++$lookup->{$nuc};
    }

    if ( @temp == 4 ) {
        if ( $lookup->{$nuc} == 1 ) { push @keep, @temp; }
        @temp = (); $nuc = ();

    }

}

print map "$_", @keep;

#! /usr/bin/perl

use strict;
use warnings;

open ( IN, "data" ) || die "Perl blew up\n";
undef $/;

my $str = <IN>;
my $lookup;

while ( $str =~ /(.+\n([A-Z]{30})\n.+\n.+\n)/g ) {

    ++$lookup->{$2};
    print $1 unless $lookup->{$2} > 1;

}