$^I = "";
while (<ARGV>) {
    s/vorher/nachher/;
    print;
}
# aufruf: perl script.pl dateiname