Perhaps you'll clarify what you need to read (beyond davido's reply above) if you explain where you got the idea reflected in the comment at Ln 009.

As noted, splitting on anything that's NOT in the string results in passing the WHOLE string direct to the array.

In any case, perldoc -f split may be a starting point ... or perldoc perlretut.