use strict;
use warnings;

use Test::More tests => 1;

my $have = "foo}\n}";
my $re   = qr/}\n}/;

like $have, $re, 'Matched';