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

##</code><code>##

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