qr/^([ACKN]([7MN]3?)?(-[AD]I)?\/)?(PJ-)?[CEFIP][CFMNOSTV]
[AEFHKNOPSTW]?([1-5C][1-3]?)?([-.][1H]i?)?-Wu$/x;
This is a Perl-compatible regular expression that matches all the Bosch department names I have worked in during my work life:
I know that the regex matches also some additional department names. Maybe, some look around expressions could avoid this. But I did not want to make things too complicated. After all, it’s just for fun.
For the last three months of my (active) time at Bosch, I got a new department name:
Although the e-mail signature with the regex is not in use anymore, it should handle the new department name, too. Here we go:
qr/^([ACKNX]([7CMN]3?)?(-[AD]I)?\/)?(PJ-)?[CEFIP][CFMNOSTV]
[AEFHKNOPSTW]?([1-5C][1-3]?)?([-.][1H]i?)?-Wu$/x;
Effectively in the home stretch, there is yet another department name update:
Okay, no big deal:
qr/^([ACKNX]([7CMN]3?)?(-[AD]I)?\/)?(PJ-)?[CEFIPR][CFMNOSTV]
[AEFHKNOPSTW]?([1-5C][1-3]?)?([-.][1H]i?)?-Wu$/x;
I proudly present my new up-to-date department name:
with the related regex:
qr/^([ACKNX]([7CMN]3?)?(-[ACD][IT])?\/)?(PJ-)?[CEFIPR][CFMNOSTV]
[AEFHKNOPSTW]?([1-5C][1-3]?)?([-.][1H]i?)?-Wu$/x;
At this point, I want to address a few words of thanks to all of the creative department name inventors during my Bosch work life. Without you, I wouldn’t have had that fun with my regex e-mail signature! :-)
Wu