#!/usr/bin/perl $lang = shift @ARGV; foreach $f (@ARGV) { system "cp","$f","$f.addlang"; open INFILE,"$f.addlang"; open OUTFILE,">$f"; $f =~ s|.*/||g; if ($f eq "index.html") { $f = ""; } while () { s/

//g; if ($lang eq "en") { s//\n

|english<\/b>|español<\/a>|català<\/a>|<\/div>/; } if ($lang eq "es") { s//\n
|english<\/a>|español<\/b>|català<\/a>|<\/div>/; } if ($lang eq "ca") { s//\n
|english<\/a>|español<\/a>|català<\/b>|<\/div>/; } print OUTFILE; } close INFILE; close OUTFILE; }