this code does not find particular tokens, it just finds anything inside parenthesis and prints it out. this is meant to be a startingpoint.

use strict;
use warnings;

#
# slurp file
#
my $file_contents = "";
{
    local $/;
    $file_contents = <DATA>;
}

#
# "parse" file
#
while ($file_contents =~ m/\((.*?)\)/sg) {
    my $match = $1; $match =~ s/\n//g;
    print "[$match]\n";
}
    


__DATA__
prematch (match) postmatch
adsf (madfa
tch) asdf
[download]

the meaning of the special variables can be found in perlvar.
also have a look inside the tutorials section.

UPDATE: added backreferencing () for $1 (thx to robartes)