print if /\Q$pattern\E/;