Select Code to Download

sub get_arg {
    shift =~ /="?([^="])/;
    $1;
}

sub get_arg {
    my ($x) = shift =~ /="?([^="])/;
    $x =~ tr/"'//;
    $x;
}