#!/usr/bin/perl
#
use strict;
use warnings;    



my $str = "abc12xdef34xghi56";

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

if ($str =~ $regexp) {
    print "MATCHED\n";
}
else
{
    print "NO MATCH\n";
}