Select Code to Download

c:\@Work\Perl\monks>perl -le
"use warnings;
...
bbb       : BBB
ccc       : CCC
]]

c:\@Work\Perl\monks>perl -le
"use warnings;
...
]]
[[aaa       : AAABBBccc       : CCC
]]

c:\@Work\Perl\monks>perl -le
"use warnings;
...
]]
[[aaa       : AAABBBccc       : CCC
]]

c:\@Work\Perl\monks>perl -wMstrict -e "my $rx = qr{$[.\n]*}m;  print $
+rx;"
(?^m:0.\n]*)