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