use strict;
use warnings;

my $name;
while (<>) {
    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;
    }
}
