in reply to Re^2: Matching patterns containing a caret
in thread Matching patterns containing a caret

Why worry about quoting constructs? qr// has worked very well for ages:

my $p = qr/\^xxx/;

In Section Seekers of Perl Wisdom