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