my $sstring = $text;
    $sstring =~ m/^\^C9,1.+ \^C11\- \^C9,1Uploaded: \|\| (.+) \^C11\- \^C0?7(.+) \^C11\[\^C9,1\-(.+)\-\^C11\] \- \^C11\(\^C9,1(.+)\) \^C11\- \^C0http:\/\/someurl\.tld\/download\.php\?id=(.+) \^C11\-OR\-\^C0 http:\/\/someurl\.tld\/download\.php\?action=download&id=(.+)$/i;

    my $scat = $1;
    my $stitle = $2;
    my $syear = $3;
    my $sinfo = $4;
    my $sid = $5;
    my $sid2 = $6;    

    system qq{echo "sanitized string: $sstring" >> ~/pl_debug.log 2>&1};
    Irssi::print("TEST: $scat, $stitle");