LABEL1: [field1]
LABEL2: [field2]
LABEL3: [field3]

##</code><code>##

foreach $File (@File) {
    $File =~ s/\n//;
    foreach $Field (@InputFields) {
    $ReplaceVar = $FORM($Field);
    $SearchVar = '\[' . Field . '\]';
    $File =~ s/$SearchVar/$ReplaceVar/g;
  }
print "$File\n";
}