Select Code to Download

use strict;
use warnings;
...
    open $fh, '>', "$file.out" or die "$file.out $!";
    print $fh $content
}

$content =~ s/^$key$/$echo/gms;
$content =~ s/$echo/$key/;