Select Code to Download

#start pattern
my name is $name
blahhhhhhh
...
#Endpattern

#1064933.txt

#!/usr/bin/perl
use 5.016;
use warnings;
...
        next;
    }
}

D:\_Perl_\PMonks>cat 1064933OUT.txt
#start pattern
my name is guest
...
my id is 42
blahhhh
#Endpattern