in reply to file copy and create csv problems
Here's a decryption of the code you have, using B::Deparse.
BEGIN { $/ = "\n"; $\ = "\n"; } LINE: while (defined($_ = <ARGV>)) { chomp $_; our(@F) = split(//, $_, 0); $D[-1] = {%{$D[-1]}, @F} unless @F % 2 and push @D, {'Stamp', @F}; } { $, = ','; print @{$_}{'Stamp', 'Login', 'searchload'} foreach (@D); }
I'm not sure how much use that is, but it's more comprehensible than what you posted.
In Section
Seekers of Perl Wisdom