Select Code to Download

# Command-line version of OP code 
#   (and added line showing value of $regexp):
...
print qq"regexp: $regexp";'
NO MATCH
regexp: qr/def/m

# Command-line version of OP code 
#   (and added line showing value of $regexp), with $regexp corrected:
...
print qq"regexp: $regexp";'
MATCHED
regexp: (?^m:def)