my $line = ";\n";

print $line =~ /$_/ ? "" : "no ", "match: $_\n" for '^;$', '^;', "^;\\z";

##</code><code>##

match: ^;$
match: ^;
no match: ^;\z