+# Now remove these Perl_, add empty- and perl_-flavors:
+perl -w014pe 'if (s/^(Perl_ # 1: First group
+ (\w+) \( # 2: Stripped name
+ \x7F # End of description
+ ) # End of description
+ (\d+,\d+\n) # 3: TAGS Trail
+ /$1$3$1$2\x01$3$1perl_$2\x01$3/mgx) { # Repeat, add empty and perl_ flavors
+ $chars = chomp;
+ s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e;
+ $_ .= ("\f" x $chars);
+ }' TAGS.tmp > TAGS.tm1 && mv TAGS.tm1 TAGS.tmp
+
+# Now remove these S_, add empty-flavor:
+perl -w014pe 'if (s/^(S_ # 1: First group
+ (\w+) \( # 2: Stripped name
+ \x7F # End of description
+ ) # End of description
+ (\d+,\d+\n) # 3: TAGS Trail
+ /$1$3$1$2\x01$3/mgx) { # Repeat, add empty_ flavor
+ $chars = chomp;
+ s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e;
+ $_ .= ("\f" x $chars);
+ }' TAGS.tmp > TAGS.tm1 && mv TAGS.tm1 TAGS.tmp