One point here ... Your use of the loop construct of for (;;) is very C-stylish and possibly not the best way to perform a simple forward iteration as your suggest. A more straight-forward way would be to make use of the range operator. eg.

for (0..5) {
    #   stuff goes here
}
[download]

If you require lexical scoping of the iteration variable, you can do so with the variable name and the my keyword.

This syntax and the range operator are discussed in perlsyn and perlop respectively.

 

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