#!/usr/bin/perl
use strict;
use warnings;

# 798719 

print "Wrestlername Crowdreaction Specialmove\n";

while ( <DATA> ) {
	print join("\t", split(/\|/));
}

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