chomp ($n = <>); while($n--){ chomp ($_ = <>); s/^0*//; print; print "\n"; }