ch-1.pl « perl « samir-parikh « challenge-002 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-002/samir-parikh/perl/ch-1.pl

blob: 964510a7cbf2333c71b801e2f265dee52e1a38c8 (plain)

#!/usr/local/bin/perl

use warnings;
use strict;

chomp(my $number = <STDIN>);

$number =~ s/\A0+//g;

print "$number\n";