Help for this page
for (@copy_this) { s{ \*\*\* password \*\*\* }{$password}xms; }
open my $myfile_fh, '<', $readfile or die "Can't open $readfile +for input: $!"