Select Code to Download

%tmp = map{ $_ => 1 } @b;
@inte = grep(!/$tmp{$_}$/, @a) ;

%tmp = map{ $_ => $_ } @b;
@inte = grep(/$tmp{$_}$/, @a) ;

@a = ('d:\1\1\1.txt',
'd:\1\1\2.txt',
'd:\1\1\3.txt',
'd:\1\1\4.txt')

@b = ('\1\2.txt',
'\1\3.txt'