Help for this page

Select Code to Download


  1. or download this
    $ perl -E ' say map { qq{"$_" }}  split /(\d+)/ for qw[ AB23C ABC23 23
    +BC ABC ]'
    "AB" "23" "C"
    "ABC" "23"
    "" "23" "BC"
    "ABC"