#!/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". 

##</code><code>##

open (my $file1,"<$dir/seq.results") or die "cannot open "$dir/seq.results";
open (my $file2,">$dir/seq.out") or die "cannot open $dir/seq.out" for write";

my $started =0;
while (<$file1>)
{
   $started =1 if (m/^\*/); #first line starting with * is seen
   print $file2 "$_" if $started;
}