Select Code to Download

Select or download this

#!/usr/bin/perl

...
  pos($S) = $i;
  print("\n  :", (($S =~ m/(\d*\G\d+)/) ? $1 : ''), ":    \tptr=$i \ts
+ubstr=", substr($S, $i));
}

Select or download this

  ::            ptr=0   substr= 45 ee33ee#555+'3210>{579}/8888"~-099.2
+:
  :45:          ptr=1   substr=45 ee33ee#555+'3210>{579}/8888"~-099.2:
...
  ::            ptr=37  substr=.2:
  :2:           ptr=38  substr=2:
  ::            ptr=39  substr=: