use strict;
use warnings;

while (<DATA>) {
    chomp;
    my @tokens = split /\|/;
    print "Wrestlername: $tokens[0]\n";
    print "Crowdreaction: $tokens[1]\n";
    print "Specialmove: $tokens[2]\n\n";
}

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

##</code><code>##

Wrestlername: The Rock
Crowdreaction: Cheer
Specialmove: Rock Bottom

Wrestlername: Triple H
Crowdreaction: Boo
Specialmove: Pedigree

Wrestlername: Stone Cold
Crowdreaction: Cheer
Specialmove: Stone Cold Stunner