$ perl -le '
> $line = qq{;\n};
> print
>    $line =~ m{$_}
>    ? q{}
>    : q{no },
>    qq{match $_}
>    for q{^;$}, q{^;}, q{^;\z};'
match ^;$
match ^;
no match ^;\z
$ perl -le '
$line = qq{;\n};
print
   $line =~ m{$_}
   ? q{}
   : q{no },
   qq{match $_}
   for qw{ ^;$ ^; ^;\z };'
match ^;$
match ^;
no match ^;\z
$