Comment Re:real code (Score 1) 158
hrm... regex's are SO not the most obfuscated thing in perl... they don't actually DO anything control-wise..
eval { chomp; ($i ? eval { $i = 0; @thingies = split(/\t/) } : (push @snarf, "$_\n")) } for <SLURP>;
is when it STARTS to get fun :)
eval { chomp; ($i ? eval { $i = 0; @thingies = split(/\t/) } : (push @snarf, "$_\n")) } for <SLURP>;
is when it STARTS to get fun
