($^I,$/) = ("");
$_=<>;
s/vorher/nachher/g;
print;