perl string matching with tail anchor

matchEnd.pl

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

# if the string ends in z regardless of case the below returns true

my $string = '"abcdefz"';
my $string2 = "abcefj";
my $last;

$last = substr($string,-2,1);

print $last;

if ($last =~ /Z/i)
{
  print "yay";
}
else
{
  print "noooo";
}

if ($string2 =~ /Z$/i)
{
  print "yay";
}
else
{
  print "noooo";
}