#!/usr/bin/perl 
usewarnings; 
$textBlock="Belgium is a monarchy. Ionuț, close the door. The buildings in Japan.
This is a sky-blue* \"material\". Here's the list:

The Eire Canal† is old…
Is Apple™ only a computer company?
www.fjydhjfjxerhuir.com is the site — go there. old-man-of-the-woods
(forget-me-not) [digital] bogus_address99@geemail.com
She's there.  replace «date»

They live in a kraal¹. façade
Mac OS X® is slated to ship in May. Überzone șăâțî
http://language.perl.com/faq";

@wordList=split/[^-A-Z®À-ÖØ-öù-žǍ-ȚḀ-ẛẠ-ỹ™]+/i, $textBlock;

foreach (@wordList) {
        print "$_\n";
}