my $result = $pattern ^ $_;