Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
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"

john
        Website: www.yahoo.com, Category: Entertainment
        Website: www.facebook.com, Category: Social Networking
...
        Website: www.google.com, Category: Search Engines
david
        Website: www.facebook.com, Category: Social Networking