Select Code to Download

perl -ne "@_=split/,/;$a=@_>2?@_-3:0;print join',',@_[$a..$#_]"

perl -ne '@_=split/,/;$a=@_>2?@_-3:0;print join",",@_[$a..$#_]'

for ("1,2,3,4,5,6","1,2,3","1,2","1","") {
    print "\nTesting: $_\n";
...
slice2:,,
right :
Modification of non-creatable array value attempted, subscript -3 at C
+:\Temp\mistakes.pl line 9.