Select Code to Download

sub text_to_shell_lit(_) {
   return $_[0] if $_[0] =~ /^[a-zA-Z0-9_\-]+\z/;
...
   );

system($ssh_cmd);

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

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

my $pat  = quotemeta($hash2);
my $repl = quotemeta($hash1);
...
      $remote_cmd,
   ),
);

s/.../.../ee

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