Re^2: Using regex to match double letters, and only double letters

in reply to Re: Using regex to match double letters, and only double letters
in thread Using regex to match double letters, and only double letters

Good solution! I couldn't help but golf it a little. :)

#!/usr/bin/perl -w
use strict;

while (<DATA>) {
    print if (/([a-z])\1/i);
}

__DATA__
balloon
hello
world
foo
bar
perlmonks
merry
christmas
[download]

Comment on Re^2: Using regex to match double letters, and only double letters Download Code

In Section Seekers of Perl Wisdom