http://www.perlmonks.org?node_id=381434

Public Scratchpad

Download, Select Code To D/L

---

#!/usr/bin/perl -w use strict; my $count=0; while ($count < 20) { my $num; $count > 10 ? $num="" : $num="0"; print "$num$count\n"; $count++; }