Perl: How to print next line after matching a pattern?

Question

I would like to print specific data after matching a pattern or line. I have a file like this:

#******************************    
List : car  
Design: S           


        

Answer 1

Solution using Perl flip-flop operator. Assumption from the input that you always have Total line at the end of the block of interest

perl -ne '$a=/^#--/;$b=/^Total/;print if(($a .. $b) && !$a && !$b);' file