<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">use strict;
use warnings;

my $name;
while (&lt;&gt;) {
    if (/^alias.*/) {
	foreach $name (split) {
	    if ($name eq "alias") {
		print $name;
	    }
	    elsif ($name =~ /[a-z]+_[A-Z]+/) {
		$name =~ tr/A-Z/a-z/;
		print " ${name}_target";
	    }
	    else {
		print " $name";
	    }
	}
	print "\n";
    }
    else {
	print;
    }
}
</pre></body></html>