Another variant:

#!/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
[download]

However, toolic's output is more readable. Tabular output from the above suffers because the field_lengths are so uneven:

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