Select Code to Download

#!/usr/bin/perl -w
use strict;
my $foo;
...
$foo = 7;
$bar = 'it is worth $foo';
print $bar;

#!/usr/bin/perl -w
use strict;
my $foo;
...
$foo = 7;
$bar = "it is worth $foo";
print $bar;

#!/usr/bin/perl -w
use strict;
my $foo;
...
$foo = 7;
$bar = "it is \"worth\" $foo";
print $bar;

#!/usr/bin/perl -w
use strict;
my $foo;
...
$foo = 7;
$bar = 'it is \'worth\' $foo';
print $bar;

#!/usr/bin/perl -w
use strict;
my $foo;
...
$foo = 7;
$bar = q(it is 'worth' $foo);
print $bar;

#!/usr/bin/perl -w
use strict;
my $foo;
...
$foo = 7;
$bar = qq(it is "worth" $foo);
print $bar;

@baz = ('one', 'two', 'three');

@baz = qw(one two three);

#!/usr/bin/perl -w
use strict;
my $foo = 123.45;
...
   foo: $foo
   bar: $bar
EOT

=====

This is an example of
...
   variable names appear.
   foo: 123.45
   bar: Martha Stewedprune