if ($line =~ m/"P7"\:/) {

  if ( $line =~ /\(.*Mem:\)\(0x[0-9a-fA-F]*\)\( to Mem:\)\(0x[0-9a-fA-F]*\) ) {

    print "First Value  $2 \n";
    print "Second Value $4 \n ";
  }
}
   

}