my @vlinks;
for my $line (@lines) {
	chomp($line);
	my %row;
	@row{qw/title title2 pages author/} = split /:/, $line, 4;
	push @vlinks, \%row;
}

use Data::Dump;
dd \@vlinks;