Perl function: q

use warnings;
use strict;
use feature 'say';

my $var_2 = 'TWO';

say q{ ONE $VAR_2 THREE }; # ONE $VAR_2 THREE