use strict
my %a = (qr/(.+)pippo/, 1);
print keys %a;