Thanks! I've opened the bugzilla ticket.
BTW, the script is in perl, I forgot the first line of the script (sorry!):
---------------------------------
#!/usr/bin/perl
$|=1;
while (<>) {
@X = split;
$url = $X[0];
$url =~ [EMAIL PROTECTED]://(.*?)/get_video\?(.*)video_id=(.*?)&[EMAIL
PROTECTED]://videos.youtube.INTERNAL/ID=$3@;
$url =~ [EMAIL PROTECTED]://(.*?)/get_video\?(.*)video_id=(.*?)[EMAIL
PROTECTED]://videos.youtube.INTERNAL/ID=$3@;
$url =~ [EMAIL PROTECTED]://(.*?)/videodownload\?(.*)docid=(.*?)[EMAIL
PROTECTED]://videos.google.INTERNAL/ID=$3@;
$url =~ [EMAIL PROTECTED]://(.*?)/videodownload\?(.*)docid=(.*?)&[EMAIL
PROTECTED]://videos.google.INTERNAL/ID=$3@;
# Uncomment this if the use of "squid://" is unaceptable:
# $url =~ [EMAIL PROTECTED]://@^http://@;
print "$url\n";
}