open my $fh, "<", $filename or die $!; local $/ = "###### interface INFORMATION ######\n"; my @blocks = <$fh>; chomp @blocks; close $fh;