Help for this page

Select Code to Download


  1. or download this
    $d = "123456789";
$d =~ s/(?<=\d)(?=(\d\d)+$)/-/g;
print  "$d";
  2. or download this
    $d =~ s/(?<=^(\d\d)+)(?=\d)/-/g;
  3. or download this
     
Variable length lookbehind not implemented in regex; marked by <-- HER
+E in m/(?<=^(\d\d)+)(?=\d) <-- HERE / at Noname1.pl line 4.