Select Code to Download

^((\w+):\n((?:[^\n]+\n)+)) -> ^((\w+):\n((?:[^\n]+\n)+)*)

while ( $data =~ /^((\w+):\n((?:[^\n]+\n)+)*)/gm ) {
    my ( $key, $val ) = ( $2, $3 );
...
    doSomething( $key, $val );    ## store it, print it, ignore it..
}