no warnings 'misc';             # "Replacement list is longer..."
my $tpl = 'abccbccbddb';
my $tpl_fixed = eval qq( \$tpl =~ tr!$tpl!a-z!r );
for ( qw/Mississippi Mossossoppo Panama/ ) {
    say $tpl_fixed eq eval qq( tr!$_!a-z!r )
        ? 'yes'
        : 'no'
}