Sorry Blue I don't follow you.

#!/usr/local/bin/perl -w
use strict;
my $x= "not a strict issue";
$x= "\L\u$x";
print $x,"\n";
[download]

Not a strict issue <CODE>