Select Code to Download

$table_ref="!Frequency[A][B][C]  ..some other text.."

$temp_=~ /\!(\S+?)            #tablename
         (?:\[(.*?)\]){1,4}   #table variables
          \s+.*/x;            #white space then rest of text.
    print Dumper ($1, $2, $3, $4, $5);