$string = "abc,def;ghi";
$string =~ /^([^,]+),([^;]+);(.+)$/;