my @splits = split(/[^\\],/,$str);