eval "\$text =~ $pattern";