use File::Slurp; use YAML::XS; use Data::Dumper; print Dumper Load scalar read_file('output.txt'); #### #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my @config; open FILE, ") { chomp; push @config, { split /[^N\n*]/ }; # push @config, $_; } print Dumper( @config );