c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = qq{aaa       : AAA\n}
       . qq{bbb       : BBB\n}
       . qq{ccc       : CCC\n}
       ;
 print qq{[[$s]]};
 ;;
 my $m = 'bbb';
 ;;
 my $t = $s =~ s/.*^$m *: (.*)$(?:.*)/$1/rsm;
 ;;
 print qq{[[$t]]};
"
[[aaa       : AAA
bbb       : BBB
ccc       : CCC
]]
[[BBB
ccc       : CCC
]]

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = qq{aaa       : AAA\n}
       . qq{bbb       : BBB\n}
       . qq{ccc       : CCC\n}
       ;
 print qq{[[$s]]};
 ;;
 my $m = 'bbb';
 ;;
 my $t = $s =~ s/.*^$m *: (.*?)$(?:.*)/$1/rsm;
 ;;
 print qq{[[$t]]};
"
[[aaa       : AAA
bbb       : BBB
ccc       : CCC
]]
[[BBB]]

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = qq{aaa       : AAA\n}
       . qq{bbb       : BBB\n}
       . qq{ccc       : CCC\n}
       ;
 print qq{[[$s]]};
 ;;
 my $m = 'bbb';
 ;;
 my $t = $s =~ s/.*^$m *: ([^\n]*)$(?:.*)/$1/rsm;
 ;;
 print qq{[[$t]]};
"
[[aaa       : AAA
bbb       : BBB
ccc       : CCC
]]
[[BBB]]

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = qq{aaa       : AAA\n}
       . qq{bbb       : BBB\n}
       . qq{ccc       : CCC\n}
       ;
 print qq{[[$s]]};
 ;;
 my $m = qr{ bbb }xms;
 ;;
 my $t = $s =~ s{ .* ^ $m [ ]* : [ ] ([^\n]*) $ .* }{$1}xmsr;
 ;;
 print qq{[[$t]]};
"
[[aaa       : AAA
bbb       : BBB
ccc       : CCC
]]
[[BBB]]