while(<IN2>)        {
chomp;    
    if ($_=~ m/\>/)        {
    push @source, $_;
        }
    elsif ($_!~ m/\>/)        {
    push @source, $_;
        }
}