print "$1 method $2\n" while $x =~ /^([AB])(.+)$/mg;