#!/usr/bin/perl

use strict;
use warnings;

my $first_try;

my $commented_out = <<ENDCOMMENT;
if( $first_try ) {
    print "this part of my code is experimental\n";
    my $message = "it's not ready to be treated as executable yet";
    # do stuff with $message...
}
ENDCOMMENT 

print "@ARGV\n";

##</code><code>##

if (0) {
   # lots of code here that I don't want to use just now...
}

##</code><code>##

# this part is currently runnable:

my $foo = "bar\n";

=head2 Commented out

my $baz = "blah";

# lots more code that I don't want to use right now...

=cut

# this part is also currently runnable...

print $foo;

##</code><code>##

perl -i.bak -pe '$_="# $_" if($.>=10 and $.<=20)' myscript.pl

##</code><code>##

perl -i.bak -pe '$_="# $_" if(/^\$foo =/../^\$bar =/)' myscript.pl