#!/usr/bin/perl
if(`dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.freedesktop.DBus.Properties.Get string:'org.mpris.MediaPlayer2.Player' string:'Metadata'`
   =~ /"xesam:artist".*?string "([^\n]+)".*"xesam:title".*?"([^\n]+)"/s
  )
{ print "$1 - $2\n"; }