#using perl MyExperiments.pl ok 1 - using /(..)/ ok 2 - using /(.)\1/ ok 3 - using /((.)\1)/;$2 ok 4 - using /((.)\1)/;$1 ok 5 - using /(.)(\1+)/;"$1$2" ok 6 - using /(..)/ ok 7 - using /(.)\1/ ok 8 - using /((.)\1)/;$2 ok 9 - using /((.)\1)/;$1 ok 10 - using /(.)(\1+)/;"$1$2" #using prove MyExperiments.pl MyExperiments.pl....ok All tests successful. Files=1, Tests=10, 0 wallclock secs ( 0.05 cusr + 0.04 csys = 0.09 CPU)