Select Code to Download

use strict;
use Data::Dumper;
...
Name = Mayer
Location = UK

$VAR1 = {
          'TITLE' => {
...
                      'Name' => 'James'
                    }
        };