my %hash = ( one_key => 'value', two_key => 'value' );
my $interpolated = "@{[keys %hash]}";
my $interpolated_re = qr/@{[keys %hash]}/;
print "Interpolated string: >>>$interpolated<<<\n";
print "Interpolated regexp: >>>$interpolated_re<<<\n";