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

##</code><code>##

Wrestlername Crowdreaction Specialmove
The Rock        Cheer   Rock Bottom
Triple H        Boo     Pedigree
Stone Cold      Cheer   Stone Cold Stunner