while ( $x =~ m{^ (?<name>A|B) (?<data>.+) $}xmg ) {
	print "$+{name} method1 $+{data}\n"
}