#!/usr/bin/perl -w use strict; my @feeds = get_rss_list(); my $feed = @feeds[rand @feeds]; print "Writing $feed\n"; system("defaults", "-currentHost", "write", "RSS Visualizer", "feedURL", $feed); # Alternatively, just use a static list, read it from a file, add additional filters, whatever you want. sub get_rss_list { my @raw_list = qx(defaults read ~/Library/Safari/Bookmarks | grep -i 'feed://'); my %rv = (); for (@raw_list) { if (/URLString\s*=\s*['"](.*)['"]\s*;?\s*$/) { my $url = $1; $rv{$url} = 1; } } return map { s/^feed/http/i; $_ } keys %rv; }