Help for this page

Select Code to Download


  1. or download this
    my $x = "";
$x=~s/(.{0,3})/"'$1".(' 'x(3-length($1)))."'\n"/eg;
...
'789'
'0  '
'   '
  2. or download this
    my $x = "";
$x=~s/(.{1,3})/"'$1".(' 'x(3-length($1)))."'\n"/eg;
...
'456'
'789'
'0  '