$asdf =~ /(asdf)/;
$1 =~ s/asdf//;