in reply to Regex's and Multidimensional Arrays

try this 
s/e/E/g for @vars, @cols, @days;

[download]

In Section Seekers of Perl Wisdom