sub pi {
     'apple 3.1415936535897532';
}

my $str = "I like breadnbutter. I like toasted ham. I like @{[pi]}";

print $str, $/;

##</code><code>##

I like breadnbutter. I like toasted ham. I like apple 3.1415936535897532

##</code><code>##

I like bread and butter. I like toast and jam. I like pi

##</code><code>##

sub pi {
     'apple 3.1415936535897532';
}

my $Nov_Pi = 'pumpkin pie';

# Make anonymous array ref with output of pi(). Then de-ref the array.
my $str = "I like breadnbutter. I like toasted ham. I like @{[pi]}";

# Concatenate a scalar.
my $Nov_str = "I also like $Nov_Pi";

print $str, $/, $Nov_str, $/;