c:\@Work\Perl\monks\marek1703>perl -wMstrict -le
"use Data::Dump qw(pp);
 ;;
 for my $s (qq{foo\r\n}, qq{foo\r}, qq{foo\n}, qq{foo}) {
   if ($s =~ /foo$/) {
     print 'matched: ', pp $s;
     }
   else {
     print 'no match: ', pp $s;
     }
   }
"
no match: "foo\r\n"
no match: "foo\r"
matched: "foo\n"
matched: "foo"

##</code><code>##

use warnings;
use strict;


while( <DATA> ) {
    if (/^"([^"]{2,})","(\d)","(.+)"$/) {
        chomp;
        my ($one, $two, $three) = ($1, $2, $3);
        print "matched: ``$_'' ('$one', '$two', '$three') \n";
        }
    else {
        print "no match: ``$_'' \n";
        }
    }


__DATA__

"Sonntag, 26.05.2013 - 13:13:27","0","Lieber Herr % , & text text with some %special characters"
xyzzy
"Mittwoch, 05.06.2013 - 18:12:09","0","Besten Dank, & hat prima geklappt. {Greetings!}"