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

( $c ) = $a =~ /^b[ \t]+(.*)/m;

print "$c\n";