Why do this in one shot?
A safe approach extracting the content is:

$a = "
a 10
b a2 s2
c 30";

@_ = split /\n/,$a; 
($c) = map {/^b\s+(.*)/} @_;
[download]