Select Code to Download

($name,$num) = ($str =~ /^(\w+)(\d{0,}$/) ;

($name, $num) =              # assign string parts to variables
($str =~                     # we gonna do regexes!
...
  )                          # end of group
  ;                          # a semicolon after end of string
                             # unexpected end of line?