Select Code to Download

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

print $str, $/;

I like breadnbutter. I like toasted ham. I like apple 3.14159365358975
+32

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

sub pi {
     'apple 3.1415936535897532';
...
my $Nov_str = "I also like $Nov_Pi";

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