#!/usr/bin/env perl

use 5.010;

for (<>) {
    if (/^>/) {
        # Header
    } elsif (/^[A-Z]+$/) {
        # Protein
        my $a = tr/A/A/;
        say "A: $a, length: " . length;
    }
}