while (<FH>) { print if $_ =~ /start/../end/ }