my ($first, $second) = $source =~ /blah(this)blah(that)blah/;