my $list = 
"RcvChar
checkeof
SerialOutputString
SerialOutputString
SerialOutputString
GetFile
ChksumByteByByte
GetChksum
SerialOutputString
SerialOutputString";
while ($list =~ s/(\b\w+\b)(.*?)\s+\1\b/$1$2/s) {};
print $list;