Регулярки для удаления комментариев и поиска переменных

[MpaK999]

1)
$src=~s/\#[\w,\s,-]+\n//gm;

вот для удаления комментариев (мой вариант), но эта редиска срабатывает еще и на констркции вида

$len=$#array;

и убивает их тоже, хотя мне этого совсем не надо...
Помоги с написанием регулярки для поиска и уничтожения комментариев в тексте, плз

2)

$src=~s/sub\s*([a-zA-Z]+/$VALUE/gm;

вот вторая регулярнка для поиска и замены всех переменных в тексте перла на некое значение, но опять же, эта редиска срабатывает на конструкции вида

$param{'X'}='XXX';
и
$line=$array[1];

а должна только искать переменные и не трогать обращения к массивам и хэшам....
большая просьба, помочь с написанием...

Привет.

Я, конечно, до конца не уверен, что это то, что тебе нужно, но, насколько я понял из твоего объяснения, можно попробовать в первом варианте воспользоваться такой конструкцией:

$scr =~ s/[^\$]\#[^\!].+//gm;

а во втором варианте:

$src =~ s/\$[^\W](?!(\w+\{))(?!(\w+\[))\w+/$VALUE/gm;