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";