#!/usr/bin/perl -w
use strict;

my $stuff;

# No complaint here
if ($stuff) {
   print "hello\n";
}

# No complaint here
if (my $stuff2 = $stuff) {
   print "hello\n";
}

# But this interpolation causes a warning
if (my $stuff3 = "$stuff") {
   print "hello\n";
}

# This concatenation complains also
if (my $newstuff = "new $stuff") {
   print "hello\n";
}