c:\@Work\Perl>perl -wMstrict -le
"use constant PATH_ELEMENT => 0;
 ;;
 my @out = (
   [ '+', '',      'before' ],
   [ 'u', 'the',   'the'    ],
   [ 'u', 'quick', 'quick'  ],
   [ 'c', 'brown', 'green'  ],
   [ 'u', 'fox',   'fox'    ],
   );
 my $path = join '', map $_->[PATH_ELEMENT], @out;
 ;;
 $path eq '+uucu' or die qq{bad path: '$path'};
 ;;
 print qq{proper path: '$path'};
"
proper path: '+uucu'