my $x;
if ($x = 'a literal value') {
# will issue warnings
}