use constant APOSTROPHE => chr 39;
print chr(39) =~ /${ \ APOSTROPHE }/;  # 1