while ( /\G.*?my\s*([@$%]\w+(?:\s*,\s*[@$%]\w+)*\)/g ) {
    print $1,"\n";
  };