my @values = qw(
 rtxecx38006_1439
 wtxecx380d1_1927
 wtxecx38009_0028
 ccaecx34000_4430
 lcaecx38000_1453
 kmohuspvmwo@171.197.27.110
 rtxecx38005_2604
 wtxecx380d0_0057
);

s/[_@].*//, print "$_\n" for @values;