( my ($bar)=($foo=~m/(ello)/) ) or "default";