#!/lang/perl -p
# see also fsed, fsed^
BEGIN {$Pat=shift; $Sub=shift; $L=length($Pat)}
while (1) {
	$i = index($_, $Pat);
	last if $i == -1;
	$_ = substr($_,0,$i).$Sub.substr($_,$i+$L);
}