sub test {
    my @rv = $_[0] =~ /^([0-9]+)$/;
    print "<<@rv>>\n";
    return wantarray? @rv: $rv[-1];
}