Watch "on demand" YAPC::NA on player of choice

watch.pl

#!/usr/bin/env perl
use warnings;
use strict;

# For watching "on demand" (i.e. archived) streams
# usage:
# mplayer -user-agent 'NSPlayer/7.10.0.3059' $(perl watch.pl http://ics.webcast.uwex.edu/mediasite/Viewer/?peid=1dde05aea2624c69a12db461afb00a6b1d)

my @parts = (shift =~ /\?peid=(\w{8})(\w{4})(\w{4})(\w{4})(\w{12})/);
local $" = '-';

print "http://video.ics.uwex.edu/Video/ICS/@parts.wmv";