Code (Perl)

     my ( $censorlanguage, $line );
     if ( $FORM{'censorlanguage'} ) { $censorlanguage = $FORM{'censorlanguage'} }
     else                           { $censorlanguage = $lang; }
     opendir LNGDIR, $langdir;
     my @langitems = readdir LNGDIR;
     closedir LNGDIR;
     my $drawnldirs = q{};

     foreach my $fld ( sort { lc($a) cmp lc $b } @langitems ) {
         my $dispsel = q{};
         if ( -e "$langdir/$fld/Main.lng" ) {
             my $displang = $lngs{$fld};
             if ( $censorlanguage eq $fld ) {
                 $dispsel = ' selected="selected"';
             }
             $drawnldirs .= qq~<option value="$fld"$dispsel>$displang</option>~;
         }
     }

     our ($CENSOR);
     fopen( 'CENSOR', '<', "$langdir/$censorlanguage/censor.txt" )
       or croak "$croak{'open'} CENSOR";
     my @censored = <$CENSOR>;
     fclose('CENSOR') or croak "$croak{'close'} CENSOR";
     foreach my $i (@censored) {
         $i =~ tr/\r//d;
         $i =~ tr/\n//d;
     } 

Code (Perl)

     my $censorlanguage = $lang;
     my $line = q{};
     if ( $FORM{'censorlanguage'} ) { $censorlanguage = $FORM{'censorlanguage'} }
     opendir LNGDIR, $langdir;
     my @langitems = readdir LNGDIR;
     closedir LNGDIR;
     my $drawnldirs = q{};

     foreach my $fld ( sort { lc($a) cmp lc $b } @langitems ) {
         my $dispsel = q{};
         if ( -e "$langdir/$fld/Main.lng" ) {
             my $displang = $lngs{$fld};
             if ( $censorlanguage eq $fld ) {
                 $dispsel = ' selected="selected"';
             }
             $drawnldirs .= qq~<option value="$fld"$dispsel>$displang</option>~;
         }
     }

     my @censored = ();
     our ($CENSOR);
     if ( -e "$langdir/$censorlanguage/censor.txt") {
         fopen( 'CENSOR', '<', "$langdir/$censorlanguage/censor.txt" ) or croak "$croak{'open'} CENSOR";
         @censored = <$CENSOR>;
         fclose('CENSOR') or croak "$croak{'close'} CENSOR";
         chomp @censored;
         foreach my $i (@censored) {
             $i =~ s/[\n\r]//gxsm;
         }
     }