#! perl -slw
use strict;

while (<DATA>) {
	next if not /^printer/;
	my @words = (split)[1,3,4];
	print "@words";
}

__DATA__

##</code><code>##

printer llp is idle. enabled since Wed Oct 23 15:54:08 GMT 2002. available.
  Form mounted:
  Content types: any
  Printer types: unknown
  Description: OPENprint printer llp
  Connection: direct
  Interface: /usr/lib/lp/model/standard
  On fault: write to root once
  After fault: continue
  Users allowed:
    (all)
  Forms allowed:
    (none)
  Banner not required
  Character sets:
    (none)
  Default pitch:
  Default page size:
  Default port settings: -opost

printer ps is idle. enabled since Wed Oct 23 15:54:17 GMT 2002. available.
  Form mounted:
  Content types: postscript, simple
  Printer types: unknown
  Description: local printer
  Connection: direct
  Interface: /usr/lib/lp/model/net_lj4x
  On fault: write to root once
  After fault: continue
  Users allowed:
    (all)
  Forms allowed:
    (none)
  Banner not required
  Character sets:
    (none)
  Default pitch:
  Default page size:
  Default port settings:


##</code><code>##

C:\test>218863
llp idle. enabled
ps idle. enabled