foreach my $a (@tryThese)
{
    print "\n\$a contains ...\n";
    {
        local $" = "<--\n";
        print "@{[split /\n/, $a]}\n";
    }
    ($c) = $a =~ /$rxAfterB/;
    print "c is -->$c<--\n\n";
}