>perl -wMstrict -le
"my ($w, $x, $y) = qw(YUU EKS);
 ;;
 my $interpol
   = q{hi \$w from '$w' and ${x}also $y and $z too} . qq{\n}
   . q{'$x' '$ x' '$  x' '${x}' '${ x}' '${  x}'}   . qq{\n}
   . q{'$y' '$ y' '$  y' '${y}' '${ y}' '${  y}'}   . qq{\n}
   . q{'$z' '$ z' '$  z' '${z}' '${ z}' '${  z}'}   . qq{\n}
   ;
 print qq{$interpol};
 ;;
 my $scalar = qr{ (?<! \\) \$ \s* (?: { \s* (\w+) } | (\w+) ) }xms;
 $interpol =~ s{ $scalar }
               { my $s = qq{\$$^N};
                 my $e = eval $s;
                 $@            ? qq{[['$s' non-existant]]} :
                 ! defined($e) ? qq{[['$s' undefined]]}    :
                                 $e;
               }xmseg;
 ;;
 print qq{'$interpol'};
"
hi \$w from '$w' and ${x}also $y and $z too
'$x' '$ x' '$  x' '${x}' '${ x}' '${  x}'
'$y' '$ y' '$  y' '${y}' '${ y}' '${  y}'
'$z' '$ z' '$  z' '${z}' '${ z}' '${  z}'

'hi \$w from 'YUU' and EKSalso [['$y' undefined]] and [['$z' non-existant]] too
'EKS' 'EKS' 'EKS' 'EKS' 'EKS' 'EKS'
'[['$y' undefined]]' '[['$y' undefined]]' '[['$y' undefined]]'
 '[['$y' undefined]]' '[['$y' undefined]]' '[['$y' undefined]]'
'[['$z' non-existant]]' '[['$z' non-existant]]'
 '[['$z' non-existant]]' '[['$z' non-existant]]'
  '[['$z' non-existant]]' '[['$z' non-existant]]'
'