my( $fo ) = m{
\Q<info name="now_playing">\E
(.*?)
\Q</info>\E  }sx;