#!/usr/bin/perl
use warnings;
use strict;

my $space_sep_FH;
my @para;

open($space_sep_FH,'>', 'space_sep.txt') or die "Error:$!.$^E";
while (<>) {
    
    next if /Id Name Persona -WWN\/iSCSI_Name- Port/;
    s/(^[ 0-9])+/\n\n$1/;
    
    print $space_sep_FH "$_";
    
}

print "Done writing to space_sep.txt.\n";

$/ = "\n\n";
open($space_sep_FH,'<', 'space_sep.txt') or die "Error:$!.$^E";
@para = <$space_sep_FH>;

foreach my $para (@para)
{
    print "$para" if $para =~ /---/;
}