#!/usr/bin/perl
use strict;
use warning;
$abc = $ARGV[0] ;
$def = $ARGV[1] ;
open (abc,"$abc") ;
open (def, "$def");
while (<abc>){
	if ($flag eq 1 ) { 
		push (@abc ,$_); $flag =0; 
	}
	if (/123/ ) {
		#$_ =~ s/^\s+// ;
		push (@abc ,$_); 
		if (/\\/){ 
			 $flag = 1;
		}
	}
}

while (<def>){
	if ($flag eq 1 ) { 
		push (@def ,$_); $flag =0;
	}
	if (/123/ ) { 
		push (@def ,$_); 
		if (/\\/){ 
			 $flag = 1;
		}
	}
}

foreach $abc (@abc ) {
	foreach $def (@def) {
		if ($abc eq $def) {
			$flag1 =1;
			break
		}					
	}
	if ($flag1 eq 0){ 
		print $abc;
	}			
$flag1 =0;		
}