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