my $codeAsText = do{
    local( @ARGV, $/ ) = $0;
    <>;
};

print $codeAsText;

##</code><code>##

open (my $foo, $0); 
print <$foo>; 
close $foo;