Select Code to Download

my $file = "foo.c";

...
    $line =~ s/\Q$file\E/$file,=SUM(B$x:B$y)/;
    print $OUT $line;
}