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

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


##</code><code>##

 $regex = qr{
  \$ \(
       ( [^\)]+ ) # $1
     \)
      (.*) # $2
}xmi;