#!/usr/bin/perl -w
use 5.011;
use utf8;
binmode STDOUT, ":encoding(UTF-8)";
use Lingua::StopWords qw( getStopWords );
my $stopwords = getStopWords('en');

use Lingua::Bork 'bork';
say bork("This is the conjunction junction.");
my $sentence = "Many think this judge's nomination will lead to a restriction on abortion.";
my @words = split / /, $sentence;
my $stop = join ' ', grep { !$stopwords->{$_} } @words;
say $stop;
say bork($stop);
__END__