Select Code to Download

# in-memory files
21. open(my $memory, ">", \$var)
22.     or die "Can't open memory file: $!";
23. print $memory "foo!\n";              # output will appear in $var

#!/usr/bin/perl
use strict;
...
my $pattern = join "|", @words;

print $pattern;