#!/usr/bin/perl -w
use strict;

my $file="show_configuration.out";
open (IN, '<', $file) or die "Can't open $file: $!\n";

my $patternSeen =0;

while (<IN>)
{
   $patternSeen =1 if /\*\sdisks/; #  '* disks' has been seen
   
   next unless $patternSeen;
   
   print;
}