#!/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 );