Select Code to Download

use strict;
use warnings;
...
   my $bad; $bad = "a $str a";
   say "bad: "._dump($bad);
}

good: bless( [bless( ['a ',bless( ['foo'], 'str' )], 'str' ),' a'], 's
+tr' )
bad: 'a foo a'