#!/usr/bin/perl

use strict;
use Encode;

while (<>) {
    my $utf8 = decode( 'iso8859-1', $_ );
    my @words = ( $utf8 =~ /\b(\w+)\b/g );
    print join "\n", map { encode( 'iso8859-1', $_ ) } @words;
    print "\n";
}