if ($line =~ m/\x01 55= ([^\x01]*) /x) {
   ...
}