#!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-Z])/*$1*/g;     

print "$z\t$zeile";

$z = $z +1


}
else {

print "\t$zeile";
}
}