Select Code to Download

    @new = map { $p ne $_ ? $p = $_ : () } @orig;

    $p = 'supercalifragilistic';
    @new = map  { $p ne $_ ? $p = $_ : () } @orig;

    use strict;
    sub uniq_adj {
...
    print "'", join ("' '", @new), "'\n";
    __END__
    Prints --> '' 'a' 'b' 'c' '0' 'c' 'd' 'u' '0' '"0"' ''0''