Select Code to Download

$index =~ m"(.*?): (.*)";

my $key = $1;
my $val = $2;

my $key='';
my $value='';
...
    $key = $1;
    $val = $2;
}

'boo!' =~ /(.*)/;

...
my $last_word=$1;

print "$last_word\n";