my $s = "hullaballoo"; while ( $s =~ /(\w)\1/g ) { print "doubled: $1\n"; } [download]
In reply to Re: Repeated character in regex by holli in thread Repeated character in regex by typhoonmentat