if (@kitties = $string =~ /pattern (with) captures/) { paw_at @kitties; }