Select Code to Download

#!/usr/bin/perl

...
print "offset: $len\n";
print "element: $after->[$len]\n";

---------- Capture Output ----------
> "c:\perl\bin\perl.exe" _new.pl
...
offset: 4
element: 1
> Terminated with exit code 0.