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