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