Select Code to Download

$VAR1 = {
          'ryan' => [
...
                        '2009'
                      ]
        };

while (<IN>){
  s/^\s+|\s+$//g; # trim leading/trailing spaces
...
    }
  }
}