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