my $string = substr($string,1) if($string =~ /^0/)