Select Code to Download

my $content = do { local $/; local @ARGV = 'vhosts.conf'; <> };

my $start = qr{<VirtualHost \*:80>};
my $finish = qr{</VirtualHost>};

    print OUT "<VirtualHost *:80>$vhost</VirtualHost>";