#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
use LWP::Curl;
use Mojo::DOM;
use Data::Dumper;

my $lwpcurl = LWP::Curl->new();
my $content = $lwpcurl->get('http://puzzledragonx.com/en/monster.asp?n=1645');

my $dom = Mojo::DOM->new($content);

my $result = $dom->at('#tableprofile > tbody > tr:nth-child(1) > td.data')->text;

print Data::Dumper::Dumper($result);