\{Def." . substr($_, 5) .".sec\}" foreach @arr;>

From the old parser-openedit.pl	=
# select one:	=
if($ARGV[2] eq "a") {	=
print "$_	=	" foreach @arr;
}	=
elsif($ARGV[2] eq "b") {	=
print "$_	=	$_\n" foreach @arr;
}	=
elsif($ARGV[2] eq "d") {	=
print substr($_, 1) . "	=	". substr($_ , 1) . "\n" foreach @arr;
}	=
#ToDo: test this ????	=
elsif($ARGV[2] eq "t") {	=
print substr($_, 5). "	=	\{_" . substr($_, 5) ."\}\n" foreach @arr;
}	=
elsif($ARGV[2] eq "tli") {	=
print " \{Def." . substr($_, 5) .".sec\} " foreach @arr;	=
}	=
elsif($ARGV[2] eq "tbase") {	=
print substr($_, 0, -7) .".	=	[G/Z/Base]" foreach @arr;
}	=
elsif($ARGV[2] eq "x") {	=
print "$_	=	" . substr($_, 0, -5)."\n" foreach @arr;
}	=
else {	=
print "$_	=	" foreach @arr;