use strict;
use warnings;
.
.
sub validate_tag {
    # Assume tags passed as arg list
    while("@_" =~ /<(.+?)>/g) {
        print "Invalid tag $1 found" unless grep /(:?$1)/, @{$ARGV[1]};
    }
}
.
.