my $string = "whateversomecapture_rewhatever";
my $qr = qr|whatever(somecapture_re)whatever|;
my ($captured) = $string =~ m/$qr/;
print $captured, " ", $1;
[download]

prints:

somecapture_re somecapture_re
[download]