#!/usr/bin/perl
use strict;
use warnings;


while ( my $line = <DATA> ) {

    my @daten = str2array( $line );

    for my $what ( @daten ) {
        print $what, $/;
    }
}


sub str2array {

    my $line = shift;

    # entferne die Klammerung von Anfang und Ende
    $line =~ s/^\( | \)$//g;

    # teile am Komma und evtl. folgendem Leerzeichen; 
    # max 4 Elemente werden erzeugt; so sollte im letzten Teil auch ein Komma moeglich sein
    # es darf nur in den ersten drei keines auftauchen
    # ( "handlung", "private", "nick", "<font face="Comic Sans MS " color="003300"> g</font>" )
    my @array = split( /,\s*/, $line, 4 );

    return @array;
}


__DATA__
( "handlung", "private", "nick", "<font face="Comic Sans MS " color="003300"> g</font>" )