Works for me?

C:\test>perl
$a="xxx^1.0";
$b="xxx^1.0 yyyy zzz";
if($b=~/\Q$a\E/) {
 print "worked\n";
}
else {
 print "nope\n";
}
^Z
worked

C:\test>
[download]