#!/usr/bin/perl
#!C:\WINNT\Perl\bin\perl.exe

$infile =  $ARGV[0];
$newfile =  $ARGV[1];

open(INFO, "$infile")		# original File oeffnen
or die("$infile konnte nicht geoeffnet werden");
@lines = <INFO>;		# in Array einlesen

open(NEW, ">$newfile") or
die("$newfile konnte nicht erzeugt werden!");	# neues File oeffnen 

# Zaehler initialisieren
$i=0;
$j=0;
$k=0;
$l=0;
$n=0;
	      
foreach $xline (@lines)
{
        if ($xline =~ /\[ELEMENT[0-9]/i) {
            $xline =~ s/\[ELEMENT[0-9]+/\[ELEMENT$n/;
            print NEW "$xline";
            $n=$n+1;
        }
        else {
            print NEW "$xline";
        }
}