#!/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__