use WWW::Mechanize; my $ua = WWW::Mechanize->new; $ua->get($cms_url); my($form) = $ua->forms; $ua->submit_form(fields => { _perpage => '1000' }); my @art_links = grep { ($_->text || '') =~ /modify/ } $ua->links;