Your best method of implementing this would be to write the data structure to a dated text file using a serialisation/dumper module such as Storable or Data::Dumper - An example piece of code might look something like this:

use Data::Dumper qw/Dumper/;
use IO::File;
use strict;

my %hash = {
    #   Your data structure lies within %hash
};

my $fn = "dump." . sprintf("%04d%02d%02d", (localtime)[5] + 1900, (loc
+altime)[4] + 1, (localtime)[3]);

my $fd = IO::File->new($fn, "w");
if (defined $fd) {
    print $fd Dumper(\%hash);
    $fd->close;
};
[download]

Note that this code is very rough and should not be used in this form - A better revision would incorporate file locking, tests for file existence and better time stamping.

 

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