my $seek = '@#]$%(*&Y^%';

my $test = 'This is a test to look for @#]$%(*&Y^% in text data';

print "found it\n" if ( $test =~ /\Q$seek\E/ );