12345678910
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use YAML;
  5. my $string = join "", <>;
  6. my $var = eval $string;
  7. print Dump($var);