in reply to to get next line of pattern matched

You're not using quotemeta :)

 my( $lid ) = m{\Q<div class='PlayVideo'></div>\E(.*?)<div class='RadioButtonClipStyle'>}s;

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.