if( $line =~ /^([^:]+): (.+) \((\d+) minutes ago\)$/ ) {
    my( $name, $text, $delay ) = ( $1, $2, $3 );
}