my ($foo, $bar);
unless (($foo, $bar) = $data =~ $pattern) {
   die "horribly!";
}
...