my $d1=$data_1 =~ m/$regex/gismx;
my $d2=$data_2 =~ m/$regex/gismx;
if($d1 && $d2 )