bydlowcode.pl

#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

my $profile = 'nickname';
my $password = '123456';

my $ua = LWP::UserAgent->new();
my $req = $ua->get("https://myanimelist.net/malappinfo.php?u=$profile&status=all&type=anime");

my @ids = $req->decoded_content() =~ m!<series_animedb_id>(\d+?)</series_animedb_id>!g;

for(@ids) {
    my $del = POST "https://myanimelist.net/api/animelist/delete/$_.xml";
    $del->authorization_basic($profile, $password);

    my $res = $ua->request($del);
    print $res->as_string(), "\n";
}