You can use HTML::Strip and check if it returns only spaces.

HTML::Strip - Perl extension for stripping HTML markup from text. 

SYNOPSIS 
  use HTML::Strip;
  my $hs = HTML::Strip->new();
  my $clean_text = $hs->parse( $raw_html );
[download]