my($foo, bar) = ($blah =~ /$blurk/);