Shouldn't you anchor it, e.g.:

my $pattern = qr//;
$_ = 'foo';

/\A \Q$pattern\E \z/x and print "Matched\n";
[download]

Then you don't have to worry about an empty pattern at all. You also don't have to worry about only part of the string matching the pattern.