Select Code to Download

#!/usr/bin/perl -w

...
}

print "$_\n" for @lines;

$ cat example
my $string = 'some value';  # these
...
my $string = 'some value';  # these
my $int    = 12;            # are
my $float  = 1.2;           # scalars