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

##</code><code>##

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