use strict; use warnings; use File::Slurp qw/read_file/; use HTML::Scrubber; my $html = read_file 'text.txt'; my $scrubber = HTML::Scrubber->new(); print $scrubber->scrub($html);