8. Generic quoting delimiter 

my $sql = q{
    UPDATE person
    SET nickname = '"The Koala"'
    WHERE first_name = 'Kevin'
    AND surname 'Campese'
};

my $dir = getcwd();

$dir =~ s{/home/[^/]+/}{};

say $dir;