if ($request->content =~ m!
   <tr> \s*
      <td[^>]*> \s* <p>Transaction Number:</p> \s* </td> \s*
      <td[^>]*> \s* ([^<]+)                    \s* </td> \s*
   </tr>
!xs) {
  print "\nmatched $1\n";
}