my $data = "\n" ;
{ local $/ ; $data .= <DATA> ; } ;

my $s = 'bc' ;  # Substring to search for in left hand side

my @r = ($data =~ m/\n.*?$s[^\s]*[ \t]+(.*)/g) ;