diff --git a/Changelog b/Changelog
index 880f35e02c51f4f8a93df7ee60f97f9e2f66621e..e4c6c4bda4686432426bcdae85db806ff3c1a6c6 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,10 @@
+Travel::Status::DE::DeutscheBahn 4.18 - Sun Oct 29 2023
+
+    * Allow HAFAS and hafas-m users to specify the backend language
+    * Update services list to include known language specifiers
+    * hafas-m: Add -l / --language option
+    * HAFAS->new, ->new_p: Add language option
+
 Travel::Status::DE::DeutscheBahn 4.17 - Sun Sep 03 2023
 
     * Journey: handle empty / undefined nameS fields
diff --git a/bin/hafas-m b/bin/hafas-m
index ceac8cc48a3486e322f17e04a92738b0c70c7a88..f3fbc391dfbe98e36af9fdd1507644ae2a4af7d1 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.014;
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 use utf8;
 use DateTime;
@@ -383,7 +383,7 @@ B<hafas-m> [B<-s> I<service>] [B<-l> I<language>] I<journeyID>
 
 =head1 VERSION
 
-version 4.17
+version 4.18
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index c272ffdb2387120bd7a5b06aef4053eb2ef31f38..53fff78b54ed439b01e5794754c9a5713842e688 100644
--- a/lib/Travel/Status/DE/DeutscheBahn.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 use parent 'Travel::Status::DE::HAFAS';
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 sub new {
 	my ( $class, %opt ) = @_;
@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn
 
 =head1 VERSION
 
-version 4.17
+version 4.18
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index c31dcff5ba65033deaf2429a3f6e6d1685db437d..2e7a6528b4e9d275b079694837d123eedea19e06 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -22,7 +22,7 @@ use Travel::Status::DE::HAFAS::Journey;
 use Travel::Status::DE::HAFAS::StopFinder;
 use Travel::Status::DE::HAFAS::Stop;
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 # {{{ Endpoint Definition
 
@@ -911,7 +911,7 @@ monitors
 
 =head1 VERSION
 
-version 4.17
+version 4.18
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index 964df9bdf342dec802b3592ccef2bad0e669c691..a2048b10fec58376c7ab18ff8507e84b2de95ed1 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -13,7 +13,7 @@ use DateTime::Format::Strptime;
 use List::Util qw(any);
 use Travel::Status::DE::HAFAS::Stop;
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
 	qw(datetime sched_datetime rt_datetime
@@ -477,7 +477,7 @@ journey received by Travel::Status::DE::HAFAS
 
 =head1 VERSION
 
-version 4.17
+version 4.18
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
index 877587ada7e969637016f259ef8e3db2c97e5d77..72d8e7781dcedc0485a3cad4bb6be860aacdd210 100644
--- a/lib/Travel/Status/DE/HAFAS/Message.pm
+++ b/lib/Travel/Status/DE/HAFAS/Message.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 use parent 'Class::Accessor';
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
 	qw(short text code prio is_him ref_count));
@@ -45,7 +45,7 @@ Travel::Status::DE::HAFAS::Message - An arrival/departure-related message.
 
 =head1 VERSION
 
-version 4.17
+version 4.18
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Polyline.pm b/lib/Travel/Status/DE/HAFAS/Polyline.pm
index ba8cf4830608dae1e30e2daf2f697f0b805a1b91..ad84f5c9f3acf47f2c79cd5529b49d0c9f5519fa 100644
--- a/lib/Travel/Status/DE/HAFAS/Polyline.pm
+++ b/lib/Travel/Status/DE/HAFAS/Polyline.pm
@@ -16,7 +16,7 @@ use 5.014;
 use parent 'Exporter';
 our @EXPORT_OK = qw(decode_polyline);
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 # Translated this php script
 # <http://unitstep.net/blog/2008/08/02/decoding-google-maps-encoded-polylines-using-php/>
diff --git a/lib/Travel/Status/DE/HAFAS/Stop.pm b/lib/Travel/Status/DE/HAFAS/Stop.pm
index 0c07be37b7dad18f36d7add8471f2600f49e58b1..408da6e6fd0f315fdd3c08e1a6c3db0bf75f407f 100644
--- a/lib/Travel/Status/DE/HAFAS/Stop.pm
+++ b/lib/Travel/Status/DE/HAFAS/Stop.pm
@@ -8,7 +8,7 @@ use 5.014;
 
 use parent 'Class::Accessor';
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 Travel::Status::DE::HAFAS::Stop->mk_ro_accessors(
 	qw(eva name lat lon distance_m weight));
@@ -76,7 +76,7 @@ Travel::Status::DE::HAFAS::Stop - Information about a HAFAS stop.
 
 =head1 VERSION
 
-version 4.17
+version 4.18
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
index baebbecf7beefaa18beec0bafadabc52887408a2..4ca834895d080b942c248bc29e6f761506748712 100644
--- a/lib/Travel/Status/DE/HAFAS/StopFinder.pm
+++ b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
@@ -12,7 +12,7 @@ use Encode qw(decode);
 use JSON;
 use LWP::UserAgent;
 
-our $VERSION = '4.17';
+our $VERSION = '4.18';
 
 # {{{ Constructors
 
@@ -182,7 +182,7 @@ finder services
 
 =head1 VERSION
 
-version 4.17
+version 4.18
 
 =head1 DESCRIPTION