#!usr/local/bin/perl
#
my $z = 1;
$text = '/SAN/content/cgi-bin/text';
open (INFO, $text);
@lines = <INFO>;
close (INFO);

foreach $zeile (@lines){
   if ($zeile=~/[a-z]/ )  {        
     $zeile =~ s/(([A-Za-z])\2)/*$1*/g;    
     print "$z\t$zeile";
     $z = $z +1;
   }
   else {
     print "\t$zeile";
   }
}