# Title A  2 B    

##</code><code>##

if ( $_ =~ /^\S\s+\S+\s[\A\b]/)
              {$sum = 2}
elsif ( $_ =~ /^\S\s+\S+\s[\B\b]/)
              {$sum = 2}
# then for next letter

if ( $_ =~ /^\S\s+\S+\s\S\s+[\B\b]/)
               {$sum += 1}