use strict;
use warnings;

my $r = qr/Delectable/;
print defined $$r ? "Defined" : "Not defined";