chomp($pat = <<'EOF');
�\
EOF
s/$pat/IX/g;

のようにすると、
Trailing \ in regex m/�\/ at xxx
というエラーになります

chomp($pat = <<EOF);
�\
EOF
s/$pat/IX/g;

とすると、IXではなくIX\になります
よく判りません