my $string = "xyz^^ is strange";
print $string if($string =~ /\^\^/);