use strict;
use warnings;

my @txt = ('cc', 'cz');

for (@txt)
{
    if (m/^(.)\1$/)
    {
        print "True   \$_ = |$_|   \$1 = |$1|\n";
    }
    else
    {
        print "False  \$_ = |$_|   \$1 = |$1|\n";
    }
}

##</code><code>##

14:13 >perl 2092.SoPW.pl
True   $_ = |cc|   $1 = |c|
False  $_ = |cz|   $1 = |c|

14:14 >