Array nach "+" Splitten ?!!

[Ruen]

Hi,

also ich lese Mp3 Dateien ein, die so heissen artist+titel.mp3
Nun will ich aber dass dieser Name gesplittet wird nach dem Zeichen +
und artist und titel als id3-tag richtig in die entsprechende Datei
eingefügt wird.
Blos leider gibt mein Script Fehlermeldungen aus :/
Bitte helft mir!
Danke!!!!

Hier nun mein Script:

#!/usr/bin/perl -w
use strict;
use MP3::Info;
use CGI::Carp qw(fatalsToBrowser);

#Variablen definieren
my $s1_verzeichnis = "/local/";

#Mp3 Ordner einlesen
opendir(DIR2, $s1_verzeichnis) || print "$s1_verzeichnis nicht vorhanden\n";

my @Found = readdir(DIR2);
        foreach my $mp3 (@Found) {
                if($mp3 =~ /.+.mp3/) {
                        my $tag = get_mp3tag($s1_verzeichnis.'/'.$mp3);         #Von was er den Tag auslesen soll
                        my $title = $tag->{TITLE};                              #Title der Mp3 auslesen
                        my $artist = $tag->{ARTIST};                            #Artist der Mp3 auslesen
                        my $album = $tag->{ALBUM};                              #Album der Mp3 auslesen

my @dateiname = split(/'+'/,$mp3);
                        print "$dateiname[0] - $dateiname[1]\n";
                        } else {
                        print "$mp3 ist keine .Mp3 Datei \n";
                        }
                }