sub text_to_shell_lit(_) {
   return $_[0] if $_[0] =~ /^[a-zA-Z0-9_\-]+\z/;
   my $s = $_[0];
   $s =~ s/'/'\\''/g;
   return "'$s'";
}

my $pat  = quotemeta($hash2);
my $repl = quotemeta($hash1);
my $perl_code = 's/^'.$pat.'$/'.$repl.'/';

my $remote_cmd = join ' ', map text_to_shell_lit,
   '/usr/bin/perl' => (
      '-i', '-p',
      '-e' => $perl_code,
      'hashfile',
   );

my $ssh_cmd = join ' ', map text_to_shell_lit,
   'ssh' => (
      '-o' => 'StrictHostKeyChecking=no',
      'root@localhost',
      '--',
      $remote_cmd,
   );

system($ssh_cmd);

##</code><code>##

sub text_to_shell_lit(_) {
   return $_[0] if $_[0] =~ /^[a-zA-Z0-9_\-]+\z/;
   my $s = $_[0];
   $s =~ s/'/'\\''/g;
   return "'$s'";
}

system(q{ssh -o StrictHostKeyChecking=no root@localhost }.text_to_shell_lit(q{/usr/bin/perl -i -pe}.text_to_shell_lit("s/^\Q$pat\E\$/\Q$repl\E/").q{ hashfile}));

##</code><code>##

my $pat  = quotemeta($hash2);
my $repl = quotemeta($hash1);
my $perl_code = 's/^'.$pat.'$/'.$repl.'/';

my $remote_cmd = join ' ', map text_to_shell_lit,
   '/usr/bin/perl' => (
      '-i', '-p',
      '-e' => $perl_code,
      'hashfile',
   );

system(
   'ssh' => (
      '-o' => 'StrictHostKeyChecking=no',
      'root@localhost',
      '--',
      $remote_cmd,
   ),
);

##</code><code>##

s/.../.../ee

##</code><code>##

s/.../eval "..."/e