Select Code to Download

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

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