+ # Fix dodgy TAFs.
+ # TAFs like this are non-standard, but I have seen these examples in
+ # real life, and that is, after all, what this code needs to cope with. [DW]
+ $l =~ s/\b(BECMG)(\d{4})\b/$1 $2/g; # Some people can't use a space bar
+ $l =~ s/\bTEMP0\b/TEMPO/g; # Some people use zero instead of a letter O
+ $l =~ s/\bBEC\b/BECMG/g; # And some people can't spell BECMG
+