Select Code to Download

use strict;
use warnings;
...
   }xeg;

print "\n     Annotated string - $string\n";

 Match against string - The cat scattered caterpillars

...
Value of pos($string) - 21

     Annotated string - The cat[4] scat[9]tered cat[18]erpillars