buy\s+it\s+now !xi; our $email = qr! \@[a-z]+\.[a-z]+ !xi; our $file = qr! ^\s* \S+ \. (xml|js|json) \s*$ !x; sub looks_like { my ($text) = @_; if ($text =~ $database_command) { return "d