>copy con script.pl
while (<STDIN>) { s/[aeiou]/!/ig; print; }
^Z
>script.pl < script.pl
>perl script.pl < script.pl
wh!l! (<STD!N>) { s/[!!!!!]/!/!g; pr!nt; }
>ver
Microsoft Windows XP [Version 5.1.2600]