#!/usr/bin/perl 
use strict;
use warnings;

my $c;  
my $x =~ /(?{local $c})/;