my ( $title, $date, $this, $that ) = split /\|/;