#!/usr/bin/perl $file = $ARGV[0]; open (IN,"<$file"); if ($file =~ /_en/) { $file =~ s/_en/_de/; open (OUT,">$file"); foreach(){ #alle $_ =~ s/// ; #$_ =~ s*Transitional//EN*Transitional//DE*; $_ =~ s/the newest stuff on my page/das neuste auf meiner seite/; $_ =~ s/krung\'s tech pages/krungs techpages/; $_ =~ s/seite in deutsch/page in english/; #spezial $_ =~ s/look all like emule_screenshot.png, png is lossless/alle sehen gleich aus wie emule_screenshot.png, png ist verlustfrei/; print $_; print OUT $_; } `chmod 755 $file`; }