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