Regex help

[Torsten Knorr]

($label, $opcode) = m/^\s*
    (?::(\w+)\s+)?       # label
    ([A-Za-z]+)\s+      # opcode
    (?:([^,\s]+)(?{push(@operands, $^N)}),?\s*)* # operands
    $/x;

Torsten