# CODE for finding a number field of a certain length
if (my @matches = $datainstring =~ m{ ([0-9]{12}) }xmsg) {
   print qq{matched @matches};push(@match2, @matches);foreach my $elem ( @match2 ) {next if $seen{ $elem }++;push @unique, $elem;}### GET UNIQUES #####
   } # IF #