in reply to Match 2 same characters

Thanks mr_mischief. It worked like a charm

BTW I was trying: if ( $_ =~ /(.)\1/ )

What was wrong that