#!/bin/perl -w
use strict;
my $XML = 'template.xml';
my $CSV = 'jobs.csv';
my $OUT = 'neudatei.xml';

open(READ1, "$XML")
open(READ2, "$CSV")
open(WRITE1, "> $OUT")

my @datei = <READ1>;

while (my $i = <READ2>)
{
  my @a = split(/;/,$i);  # CSV-Zeilen splitten
    my $name = "$a[0]";
    my $titel = "$a[1]";
    my $aufruf = "$a[2]";
    chomp $aufruf;
    foreach(@datei)
    {
      $_ =~ s/NAME/$name/;
      $_ =~ s/TITEL/$titel/;
      $_ =~ s/AUFRUF/$aufruf/;
      print WRITE1; }
}
close(READ1);
close(READ2);
close(WRITE1)
  or die "Fehler beim Schliessen von '$OUT': $! \n";