use strict;
use warnings;

my $s = 'foo';
print "s=$    s\n";

##</code><code>##

s=foo

##</code><code>##

use strict;
use warnings;

my @a = (qw/a b c def/);
my $s = "foo";

print "s=$    s, a=@  a\n";

##</code><code>##

s=foo, a=@  a