file.txt
....
....
...
file.txt
>JN....
....
....
####
#!/bin/perl
$infile=ARGV[0];
$outfile=ARGV[1];
$fixfile="fix.txt"
open(INFILE,”$infile”) or die “can’t open $fixfile: $!” ;
open(OUTFILE,”>$outfile”) or die “can’t open $outfile: $!”;
open(FIXFILE,”>$fixfile”) or die “can’t open $fixfile: $!”;
$/= “*”;
$temp="";
while() {
$*=1;
$temp=$_;
if ( $temp=~ /^(.|\n)+/ ){
$temp=~s/<(DIVIDER)>.+<\/\1>//;
print OUTFILE $temp;
}
else {
print FIXFILE $temp;
}
}
close (INFILE);
close (FIXFILE);
close (OUTFILE);