Select Code to Download

my @lines = &read_all_lines_into_an_array();
...

eval qq{print "$_\n"} for @lines;

for my $line (@lines) {
    for my $var ('@scalars_to_interpolate) {
...
    }
    print $line, "\n";
}