$a eq $b

$a =~ /^\Q$b\E\z/

my $b_re = quotemeta($b);
$a =~ /^$b_re\z/