perl -n -e '/^(.*?):(.*?):(.*?):(.*?)$/ && print "$1 by $2\n($4 from $3)\n"' /Users/user/.shell-fm/nowplaying