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

##</code><code>##

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

##</code><code>##

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