use strict;
my $str = 'Transformers: The IDW Collection, Vol. 5 (#82973) stock reduced from 18 to 17.|Order status changed from Failed to Processing.|Authorize.Net CIM Charge Approved: Visa ending in 5991 (expires 06/21) (Transaction ID 60782052346)|Authorize.Net CIM Payment Failed (Status code 2: Error Code: 27 - The transaction has been declined because of an AVS mismatch. The address provided does not match billing address of cardholder. Transaction ID 60782050745) Order status changed from Pending payment to Failed.';
my $regex = qr/[a-zA-Z0-9\.\|\ \/\:\(\)\<\>\=\-\#\"\,]*\ \(Transaction\ ID\ ([0-9]*)\)[a-zA-Z0-9\.\|\ \/\:\(\)\<\>\=\-\#\"\,]*/p;
my $subst = 'WINNER';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html