# Extract
my ($want) = $data =~ m{(some_regular_expression)};

# Eliminate
$data =~ s{some_regular_expression}{};