【Delphi】Embarcaderoオッチャ その30【C++ﾋﾞﾙﾀﾞ】

$fn = "BCC32.exe";
($fs) = (stat($fn))[7];
open fp, $fn;
binmode(fp);
read(fp,$buff,$fs);
close fp;
$src = "Inprise";
$dst = "Borland";
$buff =~ s/$src/$dst/g;
open fp, ">".$fn;
binmode(fp);
print fp $buff;
close fp;