while () { print "\t" if (/^start/ .. /^end/); print $_; } __DATA__ First line. start Indented line end Back to left margin