my $html;
{ local $/ = undef; $html = <>;}

@tokens = tokenize_html($html);

foreach (@tokens)
 { print unless m#</?blink>#; }

sub tokenize_html
 { return split /(<[^>]*>)/, shift; }