#!/usr/bin/perl -w
use strict;

my $seen_once =0;
while (<DATA>)
{
   $seen_once =1 if (m/^\*/);
   print if $seen_once;
}
=prints:
the line "Gain... " IS NOT PRINTED

*Check if your claims have been finalized.
*Sign up for alerts about your claim activity.
*Print a temporary ID card.
*View up to 18 months of claim payment details.
*Much, much more!
In addition you, your spouse and children can:
*Search for Doctors and Hospitals in your area.
*Begin a program to stop smoking or lose weight.
*Learn more about a specific disease or condition". 
=cut

__DATA__
"Gain immediate access and...
*Check if your claims have been finalized.
*Sign up for alerts about your claim activity.
*Print a temporary ID card.
*View up to 18 months of claim payment details.
*Much, much more!
In addition you, your spouse and children can:
*Search for Doctors and Hospitals in your area.
*Begin a program to stop smoking or lose weight.
*Learn more about a specific disease or condition".