Select Code to Download

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

Wrestlername: The Rock
Crowdreaction: Cheer
Specialmove: RockBottom

#!/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);

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