# ersetze 
while(<LISTE>)
 {
  push(@Zeilen,&#36_);
 }
# durch
@Zeilen = <LISTE>;

# ersetze 
foreach (@Zeilen)
{
print "&#36_";
}
# durch
print @Zeilen;