++merlyn ... And can be implemented much nicer and more cross-platform friendly with File::Spec ...

use File::Spec;

my $thefile = File::Spec->catfile('home', 'actionet', 'gallerymain', $
+inode0);
next if -d $thefile;
[download]

 

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