use utf8; while ($line = ) { $text .= $line; } $text =~ tr/a-zåàâäæçéèêëîïôöœßùûüÿA-ZÅÀÂÄÆÇÉÈÊËÎÏÔÖŒÙÛÜŸ'()\-,.?!:;/\n/cs; # The dash character must be quoted $text =~ s/([,.?!:;()'\-])/\n$1\n/g; $text =~ s/\n+/\n/g; print $text; __DATA__ »Tjuvgömmare!» säga skatorna och se ut som samvetet självt. »Vi äro polisbetjänter, vi. Hit med tjuvgodset!» »Å, tyst, era rackare! Jag är gårdsfogden.» »Just den rätta!» håna de.