local undef $/;
open(FILE,"<printfile");
my $_ = <FILE>; # slurp
close (FILE);
print "printer '$1' $2 - $3\n" while (/^printer\s+(\w+)\s+\w+\s+(\w+)\.\s+(\w+)/msg);
__OUTPUT__
'llp' idle - enabled
'ps' idle - enabled