<% my ($b) = $content[2] =~ /^(.*?)
\s*
(.*)$/; my $out; $out .= qq(
$PRESS{rubrik}
); $out .= qq(
); $out .= qq() if $content[3]; $out .= qq(

$content[0]

) unless $b; $out .= qq(

$content[0]

) if $b; $out .= qq(

$content[1]

) if $content[1]; $out .= qq(
); $out .= qq(MEHR) if $b; $out .= qq(
); return $out; %>