for (@copy_this) {
      s{ \*\*\* password \*\*\* }{$password}xms;
  }

##</code><code>##

      open my $myfile_fh, '<', $readfile or die "Can't open $readfile for input: $!"