next unless m{ ^\> \s+ # starts with "> " (.*? # main part of title ($1 = title) \((\d+)(/.*?)?\) # year inside parens, might be (1999/I) # ($2 = year, $3 = crap) (\s+\(.*?\))? # ($4 = crap .. movies might be tv/vids/games) )\t+Sci\-Fi$ # must end in Sc-Fi }x;