perl -e '
my $i=0;
for (1..456) {
  print $i%100 ? $i%10 ? "." 
                       : int(($i%100)/10)
               : "\n\t";
  $i++;
}
print "\n";
'