in reply to Setting Conditional Variable Based on Partial Match

Also, eq (perlop) is used for comparison, not for assignment. I think you want: 
$type = "S";

[download]

Side note... this: 

$PP=$PP+1;

[download]

can also be written more concisely as: 

$PP++;

[download]

In Section Seekers of Perl Wisdom