# UTF-8 Zeichen in $s
# Leerzeichen und Zeilenumbruch nach äöü
my $s = qq(
	äöü         
	
);
print unpack "A*", $s;
# äöü