use strict;

my $seqNum = 0;
my %sequences = ();
open(H,qq|$ARGV[0]|) or die $!;
while(<H>)
{
     while (m/\b([AGCTURYKMSWBDHVN]+)\b/g)
     {
          $sequences{++$seqNum} = $1;
     }
}
close(H);
for (sort {$a <=> $b} keys %sequences){print qq|$_\t$sequences{$_}\n|}