Perl: Intger divider

1000 / 3; #333.333.....3333 int(1000 / 3); #333

How do I convert a string to a number?

Use this atoi function:

        sub atoi {
         my $t;
         foreach my $d (split(//, shift())) {
           $t = $t * 10 + $d;
         }
         return $t;
       }

        $number = atoi("123");