Hi tek-tips.
Perl noob here, I have the following code for turning anything to lower case after 3 slashes :
$input = 'tea/coffee/eggs/BACON';
$output = $input =~ s/^((?:.*?\/){3}(.*)$/$1.lc($2)/er;
print $output;
Question, how can I quickly reverse the application of lc and only apply it...