Edit a remote file using SSH in Perl - regex

Question

Below is the code snippet I have written.
This tries to fetch the server name and file name through the arguments
I am stuck at editing the remote file after the server name and corresponding file name are fetched.
Command run: server.pl sox3d1 TEST50
File server.pl:
use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
my $host=$ARGV[0];
my $db_host=$ARGV[1];
my %servers;
$servers{"ser14316.local.net"}=["sox3d1","sox3d2"] ;
$servers{"ser143hn.local.net"}=["sox4d1","sox4d2"] ;
$servers{"ser14441.local.net"}=["sox6d1","sox6d2"] ;
$servers{"ser18163.local.net"}=["soxuat61","soxuat62","soxuat63"] ;
$servers{"ser1444r.local.net"}=["soxuat51","soxuat52","soxuat53"] ;
my $files=
{
db=>"/appl/$host/db_info.ref",
};
my %groups_by_host;
for my $group (keys(%servers)) {
for my $host (#{ $servers{$group} }) {
push #{ $groups_by_host{$host} }, $group;
}
}
my $server = $groups_by_host{$host}; # we get the server name via variable $host
my ( $ssh_to_server )=#$server; # This is the server to ssh
my $dest_file=$files->{"db"} ; #This will fetch the file from the remote server
print "$ssh_to_server","->","$dest_file \n";
The file in this server has to be edited and below are the steps to do that via ssh.
Search for the string $host (i.e sox3d3) in the remote file $dest_file by doing ssh to server $ssh_to_server
Replace the string TEST30 with TEST50
The file is a semicolon-separated file
File content in remote server (db_info.ref):
sox3d3 ;/appl/sox3d3/current ;TEST30 ;TEST30 ;USER_10 ;USER_30
sox4d4 ;/appl/sox4d4/current ;TEST40 ;TEST40 ;USER_20 ;USER_40
So, the 3rd and 4th columns (TEST30;TEST30) should be replaced with TEST50 as per input.
Have tried the below code to get it working
as i said i was trying for a one line and had many variables in the command , the below worked actually
Update 1:
This basically ssh's the server and changes the file accordingly
system(
'ssh' => ('-q',$ser),
'sed' => ('-i -E', qq('/$host/s#([^;]+;[^;]+;)[^;]+;[^;]+#\\1$db_host
;$db_host #') , $dest_file),

Answer 1

Tried something like this?
my $destination = sprintf( '%s#%s', $user, $host );
my $file = '/path/to/some/file.txt';
system(
'ssh' => $destination,
'sed' => ( '-i', 's/TEST30/TEST50/g', $file ),
);
The ssh documentation shows you can pass a command after the ssh destination. When you do this, ssh will log into the server, run that command, then log out again, instead of dropping you into the shell on the server.
So you can use that to run sed to edit the file.