Select Code to Download

#!/usr/local/bin/perl -w

...
    my @rv = $_[0] =~ /^([0-9]+)$/;
    return @rv[ 0 .. $#rv ];
}

michael$ perl t.pl
[[]
...
Complete documentation for Perl, including FAQ lists, should be found 
+on
this system using `man perl' or `perldoc perl'.  If you have access to
+ the
Internet, point your browser at http://www.perl.com/, the Perl Home Pa
+ge.

michael$ /usr/local/bin/perl t.pl
[[]
...
Complete documentation for Perl, including FAQ lists, should be found 
+on
this system using `man perl' or `perldoc perl'.  If you have access to
+ the
Internet, point your browser at http://www.perl.com/, the Perl Home Pa
+ge.