Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse -e 'shift ( @_ = split /,/ )'
Experimental shift on scalar is now forbidden at -e line 1, near "/,/ 
+)
"
-e had compilation errors.
shift(@_ = split(/,/, $_, 0));