while () { print "\t" if (/^start/ .. /^end/); print $_; } __DATA__ First line. start Indented line end Back to left margin #### First line. start Indented line end Back to left margin #### while () { print "\t" if (/start/ .. /end/); print $_; } __DATA__ 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 () { print "\t" if (/start/ ... /end/); print $_; } __DATA__ 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 #### 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 () { print "\t" if (2 .. 4); print $_; } __DATA__ First line. start Indented line 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.