#! /usr/bin/gawk
BEGIN {
    TLENGTH = tlength
}

/<title>/ {
    sub (/^.*<title>/, "")
    sub (/<\/title>.*$/, "")

    title = $1
    for (i = 2; (i <= TLENGTH) && (i <= NF); ++i) {
        title = title " " $i
    }
    gsub (/(&quot;)|[[:punct:]]/, "", title)
    
    title = tolower (title)
}

/\.mp3/ {
    sub (/^.*<pubDate>[[:alpha:]]{3}, /, "")
    sub (/ ..:..:.. -[[:digit:]]{4}<\/pubDate><enclosure url="/, "@")
    sub (/\.mp3.*$/, ".mp3")
    printf "%s@%s\n", $0, title
}