Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my $test_string = "foo l?est sé?jou ? foo ";
$test_string =~ s/(?<!\s)\?(?!\s)/'/sig;
print "$test_string\n";