#!/usr/bin/perl

# This filter converts the convoluted redirection URLs in IOL's news feeds to shorter, neater direct URLs.
# Written by Adrianna Pinska
# Licence: GPLv3

while(<>) {
    s#<link>http://www.iol.co.za/widgets/rss_redirect.php\?artid=([^&<]*)[^<]*</link>#<link>http://www.iol.co.za/?art_id=\1</link>#g;
    print $_;
}