server1             Webserver
server2             DMZ Server
server4             Oracle Server

##</code><code>##

use strict;
use Tie::File;
  |
  mumble.
  |

sub get_comments {
   my $host=shift;
   my @ry=();
   tie @ry,"Tie::File","myfile.txt" or die "myfile.txt: $!";
   my @lines = grep $host,@ry;
   my $line = shift @lines;  # should only be one. 
   my @f=split(/[\s\n\t]+/,$line);
   shift @f;
   untie @ry;
   return join(" ",@f);
}