package Book::Constant1;
use constant readonly => "Chris";

sub match { readonly =~ /\w/g; }
1;