#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

my $data  = "Some string here";
my $regex = qr/ fancy regex here /mxis;

like( $data, $regex, "Matching my regex" );

done_testing;