##
#!/usr/bin/env perl
use 5.010;
for (<>) {
if (/^>/) {
# Header
} elsif (/^[A-Z]+$/) {
# Protein
my $a = tr/A/A/;
say "A: $a, length: " . length;
}
}
##
##
open my $fh, '<', $filename
or die "Couldn't open $filename: $!";
for (<$fh>) {