#!/usr/bin/perl
use strict;
use warnings;

my @txt = ('cc','cz');
for (@txt) {
	no warnings 'uninitialized';
	if (m/^(.)$1/) {
		print "True   \$_ = |$_|   \$1 = |$1|\n";
	} else {
		print "False  \$_ = |$_|   \$1 = |$1|\n";
	}
	use warnings;
}