#!/usr/bin/perl

use strict;
use warnings;

my $tests = '% only 1 profile is allowed

';

my $regex = '^$';
if($tests =~ qr{$regex}ms) {
  print "$tests\n REGEX MATCHED\n";
} else {
  print "$tests\n FAILED!\n";
}