#!/usr/local/bin/perl
#
use strict;
use warnings;

our @tryThese = (
   "a 10\nb a2 s2\nc 30",
   "a 10\nb\nc 30",
   "a 10\nb  \nc 30",
   "a 10\nb a2 s2  \nc 30");

our $c;

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