my $data = <DATA>;
chomp $data;
if ($this_line =~ /\Q$data/)