use strict;
use locale;

while ( my $ligne = <STDIN> ) {
    chomp $ligne;

    while ( $ligne =~ /\pL*ables?\b/g ) {
	print $&, "\n";
    }
}