$_ = 'BODY, A, DIV, H1, H2, H3, H4, TABLE, TR, TH, TD, INPUT, TEXTAREA';

my @tags = /(\w+)/g;

print map { "<$_>\n" } @tags;