#!/usr/bin/perl
use warnings;
use strict;

use HTML::PullParser;

OPEN (SOURCE, "Somehtmlfile.html")||die"Can't create $1: $!";
my @source=<SOURCE>;
close (SOURCE);

my @dest=strip ("@source");
print "@dest";

sub strip {
  my $html = shift;
  my $parser = HTML::PullParser->new(
    doc => $html,
    text => 'text',
  );

  my $result = '';
  while(my $t = $parser->get_token) {
    $result .= $t->[0];
  }

  return $result;
};