Select Code to Download

#! perl
use strict;
...
1500 7 billing office JAGUAR_BLACK office 98 page 40 txt
1250 0 engineer office ELANTRA_YELLOW office 66 page50 txt
1250 1 engineer office DATSUN_BLUE office 67 page30 text

16:14 >perl 1499_SoPW.pl
Strings:
...
1250 1 engineer office DATSUN_BLUE office 67 page30 text

16:14 >

print { $cars{$fields[4]} } $fields[0], ',', $fields[4], "\n" if /engi
+neer/ && !/,-,/;
#     ^                   ^