sub detaint {
    my $subref = sub { $_[0] =~ /^(.*)$/; $1 };
    return map { &$subref($_) } @_ if (wantarray);  # Copy for arrays
    return &$subref($_[0]) if (defined(wantarray)); # Copy for scalar
    $_ = &$subref($_) foreach (@_);                 # In-place
    return;
}