Sort CSV entries like Facebook profile favorites alphabetically.

facebook.pl

#!/usr/bin/perl
# Sorts CSVs alphabetically and formats

use strict;

my @csv = split(/,\s?/, join(' ', @ARGV));
@csv = sort @csv;
for (my $i = 0; $i < $#csv; $i++) {
	$csv[$i] .= ",";
}

print "\n@csv\n";