Проверка с присвоением
Как то прочел, что знаменитый Ларри Уолл (Larry Wall), создатель perl всегда отдавал предпочтение функциям которые хоть и не выглядели читабельными но были короткими. Странно, учитывая то, что он был лингвистом и должен был любить красоту слова. Тем не менее, лаконичность языка perl достаточно известна. Вот небольшой пример регулярных выражений где можно подсократить.
#!/usr/bin/perl
$a= 'Larry Wall';
if($a =~ m/(larry)\s(.*)/i){
print $2;
}
# Wall
Регулярное выражение не только проверяет наличие в тексте слова ‘larry’, но и присваивает совпадения переменным $1 и $2