turns out delayReason holds more data than anticipated

		substr( $date, 6, 0, '20' );

		# delayReason=" " means no delay reason

		if ( $info eq q{ } ) {

		# TODO the first charactor of delayReason is special:

		# " " -> no additional data, rest (if any) is delay reason

		# else -> first word is not a delay reason but additional data,

		# for instance "Zusatzfahrt/Ersatzfahrt" for a replacement train

		if ( $info and $info eq q{ } ) {

			$info = undef;

		}

		elsif ( substr( $info, 0, 1 ) eq q{ } ) {

			substr( $info, 0, 1, q{} );

		}

		$train =~ s{#.*$}{};