Help for this page

Select Code to Download


  1. or download this
    $s=ME170-5/2/8-ME172-5/2/8-ME4028ME172-5/2/8-ME196-5/2/8-ME4002;
while ($s=~m/(\d{1,2}\/\d{1,2}\/\d{1,2})/g) {++$r;print "$r Found $1:"
+ .(pos($s)-length($1)+1) .$nl;}<br>
  2. or download this
    $s=ME170-5/2/8-ME172-5/2/8-ME4028ME172-5/2/8-ME196-5/2/8-ME4002;
while ($s=~m/(\d{1,2}\/\d{1,2}\/\d{1,2})/g) {++$e;print "$e Found $1:"
+ .($-[1]+1) .$nl;}<br>