Select Code to Download

#!/usr/local/bin/perl
#
...
our $c;

our $rxAfterB = qr{(?m)^b[\x20\x09]*([^\n]*)};

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

$a contains ...
a 10<--
...
b a2 s2  <--
c 30
c is -->a2 s2  <--

    ($c) = $a =~ $rxAfterB;