#!/usr/bin/perl

use strict;
use LWP::Simple qw/$ua get/;

my $username = 'replacethis'; # логин
my $password = 'replacethis'; # пароль

my $animelist = get("http://mal-api.com/animelist/$username");
$ua->credentials('myanimelist.net:80', 'MyAnimeList API', $username	=>	$password);

while($animelist =~ m/"id":(.*?),"title":"(.*?)",/igc) {
	get "http://myanimelist.net/api/animelist/delete/$1";
	print "«$2» ==> deleted\n";
}