Wikidot Move Reader

use strict;
use warnings;
use Win32::Clipboard;
my $CLIP = Win32::Clipboard();

open FILE, "FireMovesSource.txt" or die $!;

my $mode = 1;
my $data = "||~ Name ||~ Freq ||~ AC ||||~ Damage ||~ Range ||~ Special Effect ||~ Contest ||\n";

while (my $line = <FILE>) {
    chomp $line;

    next if ($line =~ m/Moves/ and $mode eq 1);
    next if ($line eq "");

    die "Please recheck file for Grant misplacement." if ($line =~ m/Grant/ and $mode eq 1);

    if ($mode eq 1) {
        my @move = split(/ - /, $line);
        $data .= "||~ $move[0] || ";
        $mode++;
        next;
    } elsif ($mode eq 2) {
        my @det = split(/ - /, $line);
        my $num = $#det;
        $det[$num] =~ s/None/-/;
        $data .= "$det[$num-1] || $det[$num] || ";
        if ($num eq 1) {
            $data .= "- || ";
        } else {
            $data .= "$det[0] || ";
        }
        $mode++;
        next;
    } elsif ($mode eq 3) {
        if ($line =~ m/Field - No Damage/) {
            $data .= "[[image N.png]] || Field, ";
        } else {
            my @detail = split(/ - /, $line);
            $data .= "[[image A.png]] || " if ($detail[0] eq "Attack");
            $data .= "[[image S.png]] || " if ($detail[0] eq "Special Attack");
            $data .= "[[image N.png]] || " if ($detail[0] eq "No Damage");
            $data .= "$detail[1], ";
        }
        $mode++;
        next;
    } elsif ($mode eq 4) {
        $line =~ s/Effect: //;
        $data .= "$line || ";
        $mode++;
        next;
    } elsif ($mode eq 5) {
        my @check = split(/ - /, $line);
        if ($#check eq 0) {
            $data .= "$line || ";
            $mode++;
            next;
        } else {
            $data .= "- || ";
            $mode++;
            redo;
        }
    } elsif ($mode eq 6) {
        $data .= "$line ||\n";
        $mode = 1;
        next;
    }
}

$CLIP->Set($data);
print "Clipboard successfully set.";
<>;