Nebo využít pro nahrazování jenom Perl:
#!/usr/bin/perl
while (glob('*.html')) {
open (SOURCE,$_) or die '$!\n';
print 'Zpracovávám soubor ','$_,'\n';
open (TARGET, ')$_.new') or die '$!\n';
while ((SOURCE)) {
chomp;
s/nejaky text/za nejaky text/g;
print TARGET $_,'\n';
};
close SOURCE;
close TARGET;
}
while (glob('*.new')) {
$old = $_;
s/\.new//;
rename $old,$_;
}