Redefined lc and uc because of the old versions of Perl