Help me with this php

It is in a funny syntax that doesn't work with my version of php

use HTML::TokeParser;
use LWP::UserAgent;
use HTTP::Response;
my $prefix = "x";

my $agent = LWP::UserAgent->new;
my $get = 'http://uh-oh.com/main.htm';;
if ($ARGV[0] eq "-v") {
        $get = 'http://www.thevidvault.com/';;
        $prefix = "v$prefix";
}
my $response = $agent->get($get);

my $content = $response->content;
my $parser = HTML::TokeParser->new(\$content);
if (!$parser) { die "Parse Not Alive?"; }
my @urls = ();
while (my $token = $parser->get_token) {
        if ($token->[0] eq "S") {
                if (lc($token->[1]) eq "a") {
                        my $url = $token->[2]->{href},"\n";
                        my $text = $parser->get_trimmed_text("/a");
                        ##if ($url =~ /thumb.*url=(.*)$/) {
                        if ($text =~ /\((\d)+\)/) {
                                print $text,$/;
                                push @urls,$url;
                        }
                }
        }
}
my $max = 20;
my $fileseach = scalar(@urls)/$max;
foreach (1..$fileseach) {
        open(FILE,">".getName($_));
        print FILE join("\n",@urls[(($_-1)*$max)..(($_)*$max)]),"\n";
        close(FILE);
}
foreach (1..$fileseach) {
        my $str = "wget -r -np -i ".getName($_)." &";
        print "$str\n";
        my $k = fork();
        unless ($k) {
                exec($str);
        }
}
sub getName {
        my $number = shift;
        return "./${prefix}${number}.urls";
}

>>1
It's not PHP, it's /#$%(")/)=#%(/"#)%(/%/=%&).

Also,
if ($text =~ /\((\d)+\)/) {
Lol. Loose typed languages are shitty, and Perl in this is no better than PHP. But in this particular case, the use of the "text" name for the variable turns me on. It has to be written by a web designer.