for my $server (@servlist) {
   my @cmd = `pulldata -e $server`;
   for (@cmd) {
      ...

##</code><code>##

   #if ($line =~ '^\s+(\w+):\s.*')
    if ($line =~ /^\s+(\w+):\s/)