$val=<STDIN>; $val = oct($val) if $val =~ /^0/; [download]
In reply to Re: <STDIN> always in string mode? by Ido in thread <STDIN> always in string mode? by kiz