Flash Link Extractor

#!/usr/bin/perl

undef $/; # enable slurp mode
$_ = <>;

# SYNTAX IS: 0x00 0x83 0xlen 0x00 "string" 0x00
while (/\x00\x83.\x00(.*?)\x00/gs){
        print "$1\n";
} 

Usage:

lynx -dump http://www.reteam.org/top.swf \
     | perl flash.pl