my $str = q{("%-16s : %-120s\n", "Benutzername", "Genutze Quota's in %")};
$str =~ s/\\n/\n/g; # ersetze \n durch newline
my @p = $str =~ /"((?:[^"]|\\")*)"/g; # hole die einzelnen Stücke