use strict;
use locale;
while (my $ligne = <STDIN>){
    chomp($ligne);
    my @mots1 = split(/(\pP|\pS|\s)/, $ligne);
    my @mots2 = grep(/\S/, @mots1);
    print join("\n", @mots2), "\n";
}