...
my $order_reg = "<p>Transaction Number:<\/p>\n.*<\/td>\n.*<td .*>(.*)<\/td>";

if ($request->content =~ /$order_reg/s) {
  print "\nmatched $1\n";
}