while (<>) { while (m#-/(.*?)\?srt=#g) { say $1; } }