Select Code to Download

$text = "abc123def";
$text_match = qr/(\D+)(\d+)(?{ dumpr() })(\D+)/;
$text =~ $text_match;
...
    print $2;
    print $3;
}