Hi, welcome to Perl, the One True Religion.

First, please edit your post to add the closing </code> tag (thanks for using the code tag!)

Second, never comment out use strict! That's like leaving your canary on the surface when you go down the mine :-)

Your script is not working because you are assigning the literal string 'qr/def/m' to the variable, because you are quoting it. qr// is an operator; it returns something, so you shouldn't quote it.

P.S. Consider using Test::More for simple tests and scriptlets like this. It can save lines of code and it's never too early to get in the habit of testing your code as you write it!

#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1; # exports 'like()'

my $str = "abc12xdef34xghi56";
my $regexp = qr/def/m;

like( $str, $regexp, 'defcon: found. \o/' );
__END__
[download]

Hope this helps!

👍 and ++ for

leaving your canary on the surface when you go down the mine

(I think that's the best metaphor for strict, only when you intend to stay on the surface (one-liner), you omit the canary)

Instead of using the qr// operator to create a regular expression, you quoted it, creating a string "qr/def/m" that you are comparing to $str, which is not found.

Compare:

# Command-line version of OP code 
#   (and added line showing value of $regexp):
$ perl -Mstrict -Mwarnings -le 'my $str = "abc12xdef34xghi56"; 
my $regexp = "qr/def/m"; 
if ( $str =~ $regexp ) { print "MATCHED"; } 
else { print qq"NO MATCH"; } 
print qq"regexp: $regexp";'
NO MATCH
regexp: qr/def/m
[download]

# Command-line version of OP code 
#   (and added line showing value of $regexp), with $regexp corrected:
$ perl -Mstrict -Mwarnings -le 'my $str = "abc12xdef34xghi56"; 
my $regexp = qr/def/m; 
if ( $str =~ $regexp ) { print "MATCHED"; } 
else { print qq"NO MATCH"; } 
print qq"regexp: $regexp";'
MATCHED
regexp: (?^m:def)
[download]

Hope that helps.

It's OK, I know what was wrong. I had quoted the regular expression that contained a qr. i.e. I had "qr/def/m" instead of $regexp = qr/def/m Thanks