compounds.pl

open($input_file, "<" . $ARGV[0]);
open($output_file, ">" . $ARGV[1]);

while (my $row = <$input_file>) {
  chomp $row;
  if($row =~ m/([\x3400-\x4DB5\x4E00-\x9FCB\xF900-\xFA6A\w]+),([\x3041-\x3096]+),([\w'():, ]+)/gmu) {
      print $output_file "$1\t$2 ($3)\n";
      print $output_file "$3 ($1)\t$2\n";
      print $output_file "$2\t$3 ($1)\n";
  }
}
close($input_file);
close ($output_file);