Select Code to Download

use 5.010;  # need (?|pattern) "branch reset" regex construct

...
    my ($transaction, $user, $comment) = ($1, $2, $3);
    printf "%-12s %-10s %s\n", $transaction, $user, $comment;
    }

c:\@Work\Perl\monks\sravs448>perl alt_branch_reset_1.pl
[[transaction 1234567; promote; 2014/08/01 10:22:37 ; user: john
...

1234567      john       Performing a "promote" on file.
4578643      sam