if( $line =~ m[ \$\$     # two dollar signs
                \(       # open paren
                ([^)]+)  # capture until closed paren
                \)       # close paren
                (.*)     # capture the rest, if any
               ]x ){
   # do stuff with $1 and $2
}