use Test::More tests => 2;

$comment = '<Comment>foo bar</Comment>';
ok( $comment =~ m{<Comment>[^<>/]*</Comment>}, 'Detect no specials');

$comment = '<Comment>foo < bar</Comment>';
ok( $comment !~ m{<Comment>[^<>/]*</Comment>}, 'Detect <');