$ perl -wc a300.pl
Sequence (?<t...) not recognized in regex; marked by <-- HERE in m/
    \A
    (?<t <-- HERE ime_stamp> \d{4}-\p{IsAlpha}{3}-\d\d [ ] \d\d:\d\d:\d\d )
    .* [ ] - [ ] id [ ] = [ ] (?<id> \d+ ),
    [ ] Status [ ] = [ ] (?<status> \w+ )
/ at a300.pl line 14.