my ($foo, $bar) = $data =~ /$pattern/
    or die "horribly!";