Select Code to Download

$line =~ s/
    \*{2} ( [^\*]+ ) \*{2}
...
        \*{2} ( [^\*]+ ) \*{2}
    \s [),]
/**$1_$2_$3_($4)**/gx

sub delimited {
    my ( $delimiter ) = @_;
...
my $parens = balanced qr/ \s $stars \s /x;

$line =~ s/ $stars \s $words \s $dollars \s $parens /**$1_$2_$3_($4)**
+/gx;