use Data::Dump;

$_ = qq{PID: \0, VID: 255, SN: AGM163923J5};
dd $_;