Select Code to Download

$string =~ y/,/,/ == -1 + grep length y/ //dr, split /,/, $string

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -E'
...
N
$ perle 'my $x = "a,,c"; say +($x =~ y/,/,/ == -1 + grep length y/ //d
+r, split /,/, $x) ? "Y" : "N"'
N