sub detaint_1 {
    $[0] =~ /^(.*)$/;
    return $1;
}