gistfile1.txt

#!/usr/bin/env perl
use Modern::Perl;
use YAML;

my $line = "08/15/2013, 15:58:47: (1234-567890) Changes made: Service end changed to 9999-12-31 (was 2013-10-12), Payment end changed to 9999-12-31 (was 2013-09-15), Renewal changed to 2013-09-12 (was 9999-12-31), srvid#=33324 modified by: Someguy Testuser (TST)";

my $re = qr|(?x) 
    (?<date> \d+/\d+/\d+),\s+
    (?<time> \d+:\d+:\d+):\s+
    \( (?<acct> \d+-\d+) \) \s+
|;

$line =~ /$re/;

say Dump \%+;