Athena -> kore portals converter

############################
# eAthena/Cronus to portals table converter by Henrybk
############################
use utf8;
use strict;
use warnings;

open OLD, "<:utf8", "PrePortals.txt" or die "Are you sure that PrePortals.txt exists? Internal error: ".$!;
open NEW, ">:utf8", "NewPortals.txt" or die $!;

while (<OLD>) {
        if ($_ =~ /^(.+),(\d+),(\d+),0  warp    .+  1,1,(.+),(\d+),(\d+)/i) {
                print NEW "$1 $2 $3 $4 $5 $6\n";
        }
}

close(OLD);
close(NEW);

print "Finished !\n";

system("pause");