use Win32::TieRegistry;

$printerKey= 
$Registry->{"HKEY_LOCAL_MACHINE\\System\\CurrentControlSet\\Control\\Print\\Printers\\"}
  or die "Can't read Printers key: $^E\n";

@printers= keys( %{$printerKey} );

foreach $printer (@printers) 
{ 
   print $printerKey->{$printer."\\Name"}."\n"; 
   if ($printerKey->{$printer."\\Name"}=~ /\\\\printer_server\\/)
   {
      delete $printerKey->{$printer."\\Name"};
   }
}