log_regex.pl

my $log_regex = qr{
    ^ (?<revision> \d (?: [.]\d )+ ) \n
    ^ log \n
    ^ [@]r\d+ \s+ (?<user> \w+ ) \s+ [|] \s+
        (?<year>   \d\d\d\d)-
        (?<month>  \d\d)-
        (?<day>    \d\d)T
        (?<hour>   \d\d):
        (?<minute> \d\d):
        (?<second> \d\d)
}xms;