% perl -le 'print "a" =~ /a' -e '/x'
1
% perl -MO=Deparse -le 'print "a" =~ /a' -e '/x'
-e syntax OK
 
print 'a' =~ /a\n/x;

% perl -le 'print "a" =~ /a\n/x'

%