my( @this ) = $line =~ /$regex/gi;
my @want = ( 'DATE', '_RE_IRD_Soc' );

Test::More::is_deeply( \@this, \@want, "got what I needed");