my $string = qq{"Hello there"};

$string =~ s/"/'/g;