>perl -wMstrict -le
"use 5.010;
 ;;
 my $P7 = '\"P7\": place in [from Mem:0x5ffa5800 to Mem:0x60077fff] {';
 print qq{'$P7'};
 ;;
 if ($P7 =~ m{ \"P7\" }xms) {
   my ($h1st, $h2nd) = $P7 =~ m{ 0[Xx] \K [[:xdigit:]]+ }xmsg;
   print qq{first value '$h1st'  second value '$h2nd'};
   }
 else {
   print q{no '\"P7\"'};
   }
"
'"P7": place in [from Mem:0x5ffa5800 to Mem:0x60077fff] {'
first value '5ffa5800'  second value '60077fff'