Select Code to Download

#!perl -w
use strict;
...
  map{$x.=sprintf('%10d',$_/10) if $_%10 == 0 && $_ != 0; $y.=$_%10} (
+0..$_[0]);
  return "$x\n$y\n";
}