$pnum =~ s/0//;