use strict;
use warnings;

my $r = qr/Delectable/;
print $r;