Select Code to Download

#!/usr/bin/perl 

...
my $extractor = Text::Extract::Word->new($file);
my $string = $extractor->get_body(':raw');
print Dumper($string);