sub pi {
     'apple 3.1415936535897532';
}

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

print $str, $/;