#!/usr/bin/perl
use strict;
use warnings;

my %data;

while (<DATA>) {
	my ($user, $site, $cat) = /"([^"]+)"/g;
	$data{$user}{$site} = $cat;
}

for my $user (keys %data) {
	my $href = $data{$user};
	print $user, "\n";
	print "\tWebsite: $_, Category: $href->{$_}\n" for keys %$href;
}

__DATA__
user="john" website="www.yahoo.com" type="Entertainment"
user="david" website="www.facebook.com" type="Social Networking"
user="john" website="www.facebook.com" type="Social Networking"
user="mike" website="www.google.com" type="Search Engines"