in reply to Get file part from the section where the matched pattern is found.

if($filecontents =~ /(\*\sdisks)/){print $1,$'}
  • Comment on Re: Get file part from the section where the matched pattern is found.
  • Download Code

In Section Seekers of Perl Wisdom