ssh to a server and change the value in a line matching a pattern using perl

Question

ssh to a server and change the value in a line matching a pattern

 use strict;
 use warnings;

  my $db_host = "TEXTM30";
  my $ser=srnmain.intranet