sub pi {
     'apple 3.1415936535897532';
}

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

print $str, $/;

##</code><code>##

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