#!/usr/bin/perl -w
open SOURCE,"<$ARGV[0]";
@zeilen = <SOURCE>;
@zeilen =~s/ü/&ü/g;
close SOURCE;
print @zeilen;