use strict;
use warnings;

open (FILE1, "<", "mob_db.txt");
while (<FILE1>) {
my $lines = $_;
$lines =~ s/\/\///g;
if ($lines =~ /(.*),(.*),$3/i) {
my $id = $1;
my $monster = $3;
print "$id $monster\n";
open (FILE2, ">>", "monsters.txt");
print FILE2 "$id $monster\n";
}
}
close (FILE1);
close (FILE2);