Thanks for everyones suggestions!

Here's how I solved it in the end.

while(<MyFile>){
    if (/(\%.*?) /){
        $item = $1;
        $item =~ s/\%//;
        push @dynamicterms, $item
    }
}
[download]

Really wasn't that hard was it!

Thanks

M