Help for this page

Select Code to Download


  1. or download this
    $num =~ s/(.{3})(?!$)/$1./g;
  2. or download this
    $num = reverse $num;
$num =~ s/(.{3})(?!$)/$1./g;
$num = reverse $num;
  3. or download this
    $num =~ s/(?!^)(.{3})(?=(?:.{3})*$)/.$1/g;