$sub_p_tmp[$i] =~ s/[()]//;
    if ( $sub_p_tmp[$i] =~ m/^(.*)\,(.*)\,(.*)[,;]$/ )
    { @args = ($1, $2, $3); }