C:\test>perl -wle"open O, qq[| perl -pe1 > \"è or å,ä,ö\" ]; print O for 1..10"

C:\test>type "è or å,ä,ö"
1
2
3
4
5
6
7
8
9
10

##</code><code>##

C:\test>perl -we"open O, qq[ type \"è or å,ä,ö\" | ]; print while <O>"
1
2
3
4
5
6
7
8
9
10