use strict;
use warnings;

use Test::More tests => 1;

my $str = 'xxx<pre>xxx<www>xxx<strong>xxx';
like $str, qr/<(?!strong>)/, "Valid tag found";