#!/usr/bin/perl -w

use strict;
use ExtractText qw( extract_text );

my @text_snippets = extract_text(
    'http://www.perlmonks.org'
);

print @text_snippets;