in reply to
Problem parsing Apache configuration
You appear to be grabing everything after the space following 'Listen', you need to take it from the next space:
if(/\s*Listen\s+\S+\s+(\S*)/){
[download]
Comment on
Re: Problem parsing Apache configuration
Download
Code
In Section
Seekers of Perl Wisdom