or download this
#!usr/bin/perl
use warnings;
...
B from FILE1 with number 1_3 and B from FILE2 with number 2_2 match
C from FILE1 with number 1_4 and A from FILE2 with number 2_1 DO NOT m
+atch
C from FILE1 with number 1_4 and B from FILE2 with number 2_2 DO NOT m
+atch