1: my $html;
   2: { local $/ = undef; $html = <>;}
   3: 
   4: @tokens = tokenize_html($html);
   5: 
   6: foreach (@tokens)
   7:  { print unless m#</?blink>#; }
   8: 
   9: sub tokenize_html
  10:  { return split /(<[^>]*>)/, shift; }