You are correct ... I had meant to write ...

my @entries = grep { ! /^\.+$/ } readdir(DH);
[download]

That's what you get for coding before the morning coffee ... Thanks clintp++

 

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