Select Code to Download

print "'$_'" for split '([&/+-])|\s+', '129-129A & B-131 NORTH AV';

...
Use of uninit...        ## and undef for the empty capture
''                      ## and a null string for luck?
'AV'                    ## And the tail of the string.

print "'$_'" for split '\s*([&/+-])\s*|\s+', '129-129A & B-131 NORTH A
+V';
'129'                   ## Match the first '-', produce '129'
...
Use of uninit...        ## and undef for the empty capture
''                      ## and a nullstring for luck?
'AV'                    ## And the tail of the string.

@bits = ( $string =~ m[(.*?)(?:PATTERN)]g, $' );

print "'$_'" 
    for '129-129A & B-131 NORTH AV' =~ m[(.*?)(?:\s*([&/+-])\s*|\s+)]g
+, $';
...
Use of uninitialized value in ...
''
'AV'