Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- BEGIN { %x=(humanspark => 7, nature => 3, americanmasters => 4, wideangle => 2, blueprintamerica => 10, wherewestand => 8, religionandethics => 11); }
- ($s, $x) = m/ \/wnet\/(\w+)\/(?:\S+\/)?(files\/\S+)/;
- print if($s && ! $x{$s});
Add Comment
Please, Sign In to add comment