#!/usr/bin/perl
# SortBM.pl -- sort WinAmp Bookmark file.
use strict;
use warnings;
use diagnostics;

my %list;
my $url = '';

while (<>) {
    chomp;
    if ($url) {
        $list{$_}=$url;
        $url = '';
    }
    else {
    	$url = $_;
    }
}
if ($url) {
    $list{$_}=$url;
}
for (sort keys %list) {
    print "$list{$_}\n$_\n";
}