use strict;
use warnings;

my $line = qq[file="path/goes/here"];

print "Line is '$line'\n";

if ($line =~ /^([^"]*)"([^"]*)"(.*)$/) {
    my ($prefix, $quoted, $suffix) = ($1, $2, $3);
    $quoted =~ s|[^/]|x|g;
    $line = qq[$prefix"$quoted"$suffix];
}

print "Line is '$line'\n";

##</code><code>##


use strict;
use warnings;

my $line = qq[file="path/goes/here"];

print "Line is '$line'\n";

my @sections = split('"', $line);
$sections[1] =~ s|[^/]|x|g;
$line = join('"', @sections) . '"';

print "Line is '$line'\n";

##</code><code>##

Line is 'file="path/goes/here"'
Line is 'file="xxxx/xxxx/xxxx"'