Help for this page
use strict; use warnings; ... open $fh, '>', "$file.out" or die "$file.out $!"; print $fh $content }
$content =~ s/^$key$/$echo/gms; $content =~ s/$echo/$key/;