use v5.24;
use strict;
use warnings;

my $q = qq q\qq;
say qq q$\qq;