HAFAS: filter out border stations

					}

				}

				my $iris_stations = join( '|', $opt{train}->route );

				my $hafas_stations = join( '|', @station_list );

				# borders (Gr" as in "Grenze") are only returned by HAFAS.

				# They are not stations.

				my $hafas_stations

				  = join( '|', grep { $_ !~ m{(\(Gr\)|\)Gr)$} } @station_list );

				if ( $iris_stations eq $hafas_stations

					or index( $hafas_stations, $iris_stations ) != -1 )

				{