#!/usr/bin/perl -w
use strict;

use Data::Dumper;
use File::Find;

my $favorites_path = shift || 'C:/Windows/Favorites';    # assumptions
+ are amazing

my @favorites;
find(\&scan, $favorites_path);

print "done reading...\n";
print "outputting to dumped_favorites.txt...";

open OUT, ">dumped_favorites.txt" or die "couldn't dump favorites: $!"
+;
print OUT Data::Dumper->Dump([\@favorites], ['favorites']);
close OUT;

print "done.\n";

sub scan {
    return if ($_ eq '.' || $_ eq '..' || !-f $File::Find::name);
    my $record = {};
    {
        local $_;
        open FAVORITE, "<$File::Find::name" or die "couldn't open $Fil
+e::Find::name: $!";
        while (<FAVORITE>) {
            s/URL=// and chomp and $record->{url} = $_;
        }
        close FAVORITE;
    }
    $record->{name} = substr($_, 0, -4);    # can rely on as extension
+ is always url
    push @favorites, $record;
    print '.';
}
[download]