Select Code to Download

    my @list = grep defined($_), split /
                            \s+
...
                            )
                    /xi,
                $string;

   129-129A & B-131 NORTH AV

        token:  129
        token:  -
...
        token:  131
        token:  NORTH
        token:  AV