The Rock|Cheer|Rock Bottom
Triple H|Boo|Pedigree
Stone Cold|Cheer|Stone Cold Stunner

##</code><code>##

Wrestlername: The Rock
Crowdreaction: Cheer
Specialmove: RockBottom

##</code><code>##

#!/usr/bin/perl -w
open(Handle,"D:\\scripts\\read.txt") || die "cannot read the file: $!";
chomp(@row_data=<Handle>);
close(Handle);
print join (',',@row_data);

##</code><code>##

The output is as follows:
The Rock|Cheer|Rock Bottom,Triple H|Boo|Pedigree,Stone Cold|Cheer|Stone Cold Stunner