open (file1,"<$dir/seq.results");
    while (<file1>){
        chomp $_;
        @lines= split(/\n/,$_);
        foreach $line(@lines){
    if ($line = ~m/^*/){
            push (@final,$line);
        }
    }
    }
foreach (@final)
{
    open (file2,">$dir/seq.out");
    print file2 $_;
    close file2;
}
close file1;