my ( $date, $activity, $machine, $company ) = $_ =~
    m/^(.+(?:AM|PM))
       \|\d\|
       (.+)
       \sfor\s
       ([\w\d-]+@[\w\d.-])
       \s.+\bby\s
       ([\w\d])
       [^\w\d]+$
     /x;