for my $line (@lines) {
    for my $var ('@scalars_to_interpolate) {
	eval qq{\$line =~ s/\\$var/$var/g}, "\n";
    }
    print $line, "\n";
}