#!/usr/bin/perl
open(FH,$ARGV[0]);
open(OUT1,">file1.txt");
open(OUT2,">file2.txt");
@array=<FH>;
$str=join("",@array);
@list=split("###",$str);
foreach $line(@list){
    $line=~m/(# coding sequence = [.*\])(# protein sequence = [.*\])/;
  print OUT1 "$1";
  print OUT2 "$2";
}