Select Code to Download

while (<DATA>) {
    print "\t" if (/^start/ .. /^end/);
...
Indented line
end
Back to left margin

First line.
    start
    Indented line
    end
Back to left margin

while (<DATA>) {
    print "\t" if (/start/ .. /end/);
...
First line.
Indent lines between the start and the end markers
Back to left margin

First line.
    Indent lines between the start and the end markers
Back to left margin

while (<DATA>) {
    print "\t" if (/start/ ... /end/);
...
So this is indented,
and this is the end of the indented block.
Back to left margin

First line.
    Indent lines between the start and the end markers
    So this is indented,
    and this is the end of the indented block.
Back to left margin

while (<DATA>) {
    print "\t" if (2 .. 4);
...
end

Back to left margin

First line.
    start
    Indented line
    end
Back to left margin

print join ' ', (1..5);

1 2 3 4 5

my @array = qw(1 2 3 4 5 6 7 8 9);
print "@array[0..3]";

1 2 3 4

my @array = qw(1 2 3 4 5 6 7 8 9);
print "$array[0..3]";

use strict;
use warnings;
my @array = qw(1 2 3 4 5 6 7 8 9);
print "$array[0..3]";

Use of uninitialized value in range (or flip) at noname.pl line 4.