Select Code to Download

$ perl -cw 11135816.pl 
No such class list at 11135816.pl line 6, near "my list"
...
Global symbol "$the_rest" requires explicit package name at 11135816.p
+l line 10.
Bareword "list" not allowed while "strict subs" in use at 11135816.pl 
+line 6.
11135816.pl had compilation errors.

use strict;
use warnings;
...
my $the_rest = $1;
print $the_rest . "\n";    # "This is my"
print $last . "\n";        # "list";