}

           return @mas;

    }else{

           return 0;

    }

}

# первый аргумент – HTML-тег, из которого нужно доставать

# атрибут, второй аргумент – это и есть атрибут, который

# будет вынут, а третий аргумент – это текст, из котрого все

# это будет доставаться (все извлекается в массив)

@m = cut_tag("a","href",$href);

print join " ",@m;

Вот результат:

JavaScript: alert('cmon')

new.htm

Далее несколько решений, взятых из книги Perl Cookbook.

Удаление комментариев C (не идеальное):

$string =~ s{

    /*

    .*?

    */

}[]gsx;

Поиск всех слов, записанных символами верхнего регистра:

@capwords = ($string =~ m/([^Wa-z0-9_]+)/g);

Поиск всех слов, записанных символами нижнего регистра:

@capwords = ($string =~ m/([^WA-Z0-9_]+}/g);

Поиск всех слов, начинающихся с буквы верхнего регистра:

@icwords = ($string =~ m/([^Wa-z0-9_][^WA-Z0-9_]*)/g);

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

Удачи!