my @output = $x=~/(^A|^B)(.+)$/mg;
print Dumper(\@output);
# $VAR1 = ['A', ' data for A', 'B', ' data for b', 'A', ' data for A', ...