Just wanted to point out that if the file you're searching has a lot of lines, you can gain some speed by adding the "o" option to the regex; i.e.:

    print $1 if /$regex/o;
[download]

This way, the regular expression only has to be compiled once.

- Zoogie