Watch YAPC::NA on player of choice

watch.pl

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

# usage:
# mplayer $(perl watch.pl http://ics.webcast.uwex.edu/mediasite/Viewer/?peid=ceecb7a37e3f4dbbb13e7f5cc9f513291d)

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

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