my $foo = 'PID: , VID: 255, SN: AGM163923J5';

print "NOT MATCHED!\n" unless $foo =~ /PID: ,/;