perl -e &#39;print&nbsp; map { s/^.{1}0{0,}//, $_} shift @ARGV&#39; D234<br>perl -e &#39;print&nbsp; map { s/^.{1}0{0,}//, $_} shift @ARGV&#39; 000000234<br>perl -e &#39;print&nbsp; map { s/^.{1}0{0,}//, $_} shift @ARGV&#39; D0000234<br>
<br>prints: 1234<br><br>Im sure im losing my mind...<br><br>what im looking for is: 234<br><br>Ted<br clear="all"><br>-- <br>If you mess with a thing long enough, it&#39;ll break.<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-- Schmidt