Select Code to Download

while($seq =~ /([VILMFWCA]{8,})/g){ #search for desired sequence
    my $location = pos($seq); #find location
...
    print $1, "\n";
    print "The match was at position: ", $location - $length + 1, "\n\
+n";
}

my $header_printed = 0; # header for this thingamabob was not yet prin
+ted

...
    print $1, "\n";
    print "The match was at position: ", $location - $length + 1, "\n\
+n";
}