Select Code to Download

  'abcdef' =~ / ( abc ( def) ) /x;
   $1 -> 'abcdef'
   $2 -> 'def'

    use Data::Dumper;
    my $table_ref="!Frequency[A][B][C]  ..some other text..";
...

    print Dumper($filename,\@vars);