#!/usr/bin/perl -w
use strict;

=pod

=head1 Perl Weekly Challenge #002-1

 Write a script or one-liner to remove leading zeros from positive numbers.
 eg '00034' result should be '34'

 one liner solution 
 perl -le '$ARGV[0] =~ s/^0+// && print $ARGV[0]' 000023

=cut

exit;