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