Problem with split (perl)?

Question

Perl

I'm trying to use split to split a string ($myline) of the form:
+1,-2,+5into substrings separated by commas, but everything fails with an error:

Code:

if ($myline ne '.') {
      @tmp_users = split(/\,/, $myline);
      foreach $tmp_user (@tmp_users) {
        switch (split($tmp_user, 0, 1)) {
          case '+'  {
            print '+++', $tmp_user,'\n';
          }
          case '-'  {
            print '-', $tmp_user,'\n';
          }
          else {
            if (isdigit $tmp_user) {
              print '_', $tmp_user,'\n';
              @users = (@users, $username[$tmp_user]);
            } else {
              #  print 'else else cond_';
            }
          }
        }
      }
    } else {
      #изменений в составе команды проекта нет
      print 'ok';
    }

If the line is of the form .or 1,9then everything works fine.

Answer 1

replace
switch (split($tmp_user, 0, 1)) {
with
switch (substr($tmp_user, 0, 1)) {