Select Code to Download

my $code;
{
...
        push @csv, @rest if ( @rest );
    }
}

{
    local $/;
...
$code =~ s{ */\*.*?\*/ *}{ }gs;  # allow "." to match "\n"

# now split on commas (and newlines?)