my $repl = '$1 ';

$repl =~ s/\"/\\"/g;
$repl = qq{"$repl"};

$str =~ s/$path/$repl/eeg;