sub detaint_n {
    map { /^(.*)$/; $1 } @_;
}

sub detaint_n_inp {
    foreach (@_) { /^(.*)$/; $_ = $1}
}