in reply to Re: Pattern problemin thread Pattern problem
perl -ne 'print if /Host System [^#]/;' records.txt [download]
perl -pe 's/(Host System [^#].+)|.+/$1/gs' records.txt [download]