Just wanted to give my pedantic side a bit of an outing...

An array will always contain exactly one list.

"The first rule of Perl club is you don't talk about Perl club."

use strict;

my @a = ( '1', '2', '3', '4', '5' );
print scalar @a, "\n";
[download]

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'

Sorry if I sound dumb. Heh, that works. Would line counting in a file also work if I used foreach loops?

Absolutely, sample code for a line count using a foreach loop might look like this:

$/ = "\n";
my $count;
open (FH, "myfile.text") || die "Cannot open file: $!";
$count++ foreach (<FH>);
close FH;
[download]

 

Update #1 - Also see the post from djw in this thread here.

Update #2 - A piece of code designed to illustrate foreach really should use foreach and not while - Thanks Hofmator++

Update #3 - And the snippets from Masem and davorg in this thread here and here are illustrative - Thanks especially to davorg for the $. suggestion.

 

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'