Pokedex Importation Project Script

#!/usr/bin/perl
open FILIN, "<moveinput.txt";
open FILOUT, ">output.txt";
my $mode = 0;

while (my $line = <FILIN>) {
    if ($line =~ m/Move List/) {
        $mode = 0 if ($line =~ s/Level Up Move List */|levelupmoves=/);
        $mode = 1 if ($line =~ s/TM\/HM Move List */|tmmoves=/);
        $mode = 2 if ($line =~ s/Egg Move List */\n|eggmoves=/ or $line =~ s/Tutor Move List */\n|tutormoves=/);
        chomp $line;
    } else {
        if ($mode eq 0) {
            $line =~ s/ - \w+ *//;
        } elsif ($mode eq 1) {
            chomp $line;
            $line =~ s/, /\n/g;
            $line =~ s/01/TM01 Hone Claws/;
            $line =~ s/38/TM38 Fire Blast/;
            $line =~ s/02/TM02 Dragon Claw/;
            $line =~ s/39/TM39 Rock Tomb/;
            $line =~ s/03/TM03 Psyshock/;
            $line =~ s/40/TM40 Aerial Ace/;
            $line =~ s/04/TM04 Calm Mind/;
            $line =~ s/41/TM41 Torment/;
            $line =~ s/05/TM05 Roar/;
            $line =~ s/42/TM42 Facade/;
            $line =~ s/06/TM06 Toxic/;
            $line =~ s/43/TM43 Flame Charge/;
            $line =~ s/07/TM07 Hail/;
            $line =~ s/44/TM44 Rest/;
            $line =~ s/08/TM08 Bulk Up/;
            $line =~ s/45/TM45 Attract/;
            $line =~ s/09/TM09 Venoshock/;
            $line =~ s/46/TM46 Thief/;
            $line =~ s/10/TM10 Hidden Power/;
            $line =~ s/47/TM47 Low Sweep/;
            $line =~ s/11/TM11 Sunny Day/;
            $line =~ s/48/TM48 Round/;
            $line =~ s/12/TM12 Taunt/;
            $line =~ s/49/TM49 Echoed Voice/;
            $line =~ s/13/TM13 Ice Beam/;
            $line =~ s/50/TM50 Overheat/;
            $line =~ s/14/TM14 Blizzard/;
            $line =~ s/51/TM51 Ally Switch/;
            $line =~ s/15/TM15 Hyper Beam/;
            $line =~ s/52/TM52 Focus Blast/;
            $line =~ s/16/TM16 Light Screen/;
            $line =~ s/53/TM53 Energy Ball/;
            $line =~ s/17/TM17 Protect/;
            $line =~ s/54/TM54 False Swipe/;
            $line =~ s/18/TM18 Rain Dance/;
            $line =~ s/55/TM55 Scald/;
            $line =~ s/19/TM19 Telekinesis/;
            $line =~ s/56/TM56 Fling/;
            $line =~ s/20/TM20 Safeguard/;
            $line =~ s/57/TM57 Charge Beam/;
            $line =~ s/21/TM21 Frustration/;
            $line =~ s/58/TM58 Sky Drop/;
            $line =~ s/22/TM22 Solarbeam/;
            $line =~ s/59/TM59 Incinerate /;
            $line =~ s/23/TM23 Smack Down/;
            $line =~ s/60/TM60 Quash/;
            $line =~ s/24/TM24 Thunderbolt/;
            $line =~ s/61/TM61 Will-O-Wisp/;
            $line =~ s/25/TM25 Thunder/;
            $line =~ s/62/TM62 Acrobatics/;
            $line =~ s/26/TM26 Earthquake/;
            $line =~ s/63/TM63 Embargo/;
            $line =~ s/27/TM27 Return/;
            $line =~ s/64/TM64 Explosion/;
            $line =~ s/28/TM28 Dig/;
            $line =~ s/65/TM65 Shadow Claw/;
            $line =~ s/29/TM29 Psychic/;
            $line =~ s/66/TM66 Payback/;
            $line =~ s/30/TM30 Shadow Ball/;
            $line =~ s/67/TM67 Retaliate/;
            $line =~ s/31/TM31 Brick Break/;
            $line =~ s/68/TM68 Giga Impact/;
            $line =~ s/32/TM32 Double Team/;
            $line =~ s/69/TM69 Rock Polish/;
            $line =~ s/33/TM33 Reflect/;
            $line =~ s/70/TM70 Flash/;
            $line =~ s/34/TM34 Sludge Wave/;
            $line =~ s/71/TM71 Stone Edge/;
            $line =~ s/35/TM35 Flamethrower/;
            $line =~ s/72/TM72 Volt Switch/;
            $line =~ s/36/TM36 Sludge Bomb/;
            $line =~ s/73/TM73 Thunder Wave/;
            $line =~ s/37/TM37 Sandstorm/;
            $line =~ s/74/TM74 Gyro Ball/;
            $line =~ s/75/TM75 Swords Dance/;
            $line =~ s/89/TM89 U-Turn/;
            $line =~ s/76/TM76 Struggle Bug/;
            $line =~ s/90/TM90 Substitute/;
            $line =~ s/77/TM77 Psych Up/;
            $line =~ s/91/TM91 Flash Cannon/;
            $line =~ s/78/TM78 Bulldoze/;
            $line =~ s/92/TM92 Trick Room/;
            $line =~ s/79/TM79 Frost Breath/;
            $line =~ s/93/TM93 Wild Charge/;
            $line =~ s/80/TM80 Rock Slide/;
            $line =~ s/94/TM94 Rock Smash/;
            $line =~ s/81/TM81 X-Scissor/;
            $line =~ s/95/TM95 Snarl/;
            $line =~ s/82/TM82 Dragon Tail/;
            $line =~ s/A1/TMA1 Cut/;
            $line =~ s/83/TM83 Work Up/;
            $line =~ s/A2/TMA2 Fly/;
            $line =~ s/84/TM84 Poison Jab/;
            $line =~ s/A3/TMA3 Surf/;
            $line =~ s/85/TM85 Dream Eater/;
            $line =~ s/A4/TMA4 Strength/;
            $line =~ s/86/TM86 Grass Knot/;
            $line =~ s/A5/TMA5 Waterfall/;
            $line =~ s/87/TM87 Swagger/;
            $line =~ s/A6/TMA6 Dive/;
            $line =~ s/88/TM88 Pluck/;
        } elsif ($mode eq 2) {
            chomp $line;
            $line =~ s/, /\n/g;
        }
    }
    print FILOUT $line;
}

close FILIN;
open FILIN, "<moninput.txt";
my $first = 1;

while (my $line = <FILIN>) {
    if ($first) {
        chomp $line;
        print FILOUT "\n|name=$line\n";
        $line = lc $line;
        print FILOUT "|image=http://img.pokemondb.net/artwork/$line.jpg\n";
        $first = 0;
    } else {
        my $oldmode = $mode;
        if ($line =~ m/Base Stats/) {
            print FILOUT "|stats=";
            $mode = 3;
        }

        if ($line =~ m/Information/) {
            $line = "";
            $mode = 4;
        }

        if ($line =~ m/Evolution *:/) {
            $line = "|evotree=";
            $mode = 5;
        }

        if ($line =~ m/Capability List/) {
            $line = "|caps=";
            $mode = 6;
        }

        if ($line =~ m/Capture Rate/) {
            $mode = 4;
        }

        if ($mode eq 3 and $line =~ m/\d/) {
            my $last;

            if ($line =~ m/Speed/) { $last = 1; } else { $last = 0; }

            $line =~ s/\D//g;
            print FILOUT $line;

            print FILOUT " / " if (not $last);
            print FILOUT "\n" if ($last);
        } elsif ($mode eq 4) {
            $line =~ s/Type\s*:\s*/|type=/;
            chomp $line if ($line =~ s/Basic Abilities\s*:\s*/|abilities=/);
            $line =~ s/High Abilities\s*:\s*/\n|hiabilities=/;
            $line =~ s/Height\s*:\s*/|height=/;
            $line =~ s/Weight\s*:\s*/|weight=/;
            $line =~ s/Gender Ratio\s*:\s*/|genratio=/;
            $line =~ s/Egg Group\s*:\s*/|egggroup=/;
            $line =~ s/Average Hatch Rate\s*:\s*/|hatchtime=/;
            $line =~ s/Diet\s*:\s*/|diet=/;
            $line =~ s/Habitat\s*:\s*/|habitat=/;
            $line =~ s/Capture Rate\s*:\s*/\n|caprate=/;
            $line =~ s/Experience Drop\s*:\s*/|expdrop=/;
            $line =~ s/\n\n/\n/g;
            print FILOUT $line;
        } elsif ($mode eq 5) {
            print FILOUT $line;
        } elsif ($mode eq 6) {
            chomp $line;
            print FILOUT $line;
        }
    }
}
print "DONE!";
<>;