#! perl -slw
use strict;

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

__DATA__