Select Code to Download

#!/usr/bin/perl -w
use strict;
...
*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".

open (my $file1,"<$dir/seq.results") or die "cannot open "$dir/seq.res
+ults";
open (my $file2,">$dir/seq.out") or die "cannot open $dir/seq.out" for
+ write";
...
   $started =1 if (m/^\*/); #first line starting with * is seen
   print $file2 "$_" if $started;
}