None of the above code works for me??

There's no reason it shouldn't. I suspect your error is elsewhere. Provide a minimal runnable example and tell us how it doesn't work.

The above code doesnt even look like perl..more like php??

Similarity is to be expected since PHP is based on Perl, but it doesn't look anything like PHP. The PHP equivalent of my

m{...}
[download]

would be

preg_match('{...}', $_)
[download]

(I don't actually know PHP. That's based on a quick search.)