/**
 * Validate email address
 * @param   string $email Email address to validate
...

def parse_query(s)
  if s.count(':') == 0
    return s
...

$css = preg_replace('/\s\s+/', '', preg_replace('@/\\*([\\s\\S]*?)\\*/@','',$css));

// Check to make sure value is non-null and matches CSS grammar
// A property may contain more than one class name so we need to
// check each potential class name in the string.
...

# Initial attributes Hash
# 
attributes = {
...

$outputstr =  preg_replace('/[-]{2,}/','-',trim(strtolower(str_replace(' ','-',preg_replace('/[^A-Z0-9- ]+/i','',$inputstr))),'-'));

String className = file.getAbsolutePath();

/* TODO, replace this with regex is possible */
...

#!/usr/bin/perl

use warnings;
...

class PropertyGroups
  def self.from_xml(xml)
    document = Document.new(xml)
...

def check_user_agent
    if api_access?
      regex = Regexp.new("^([^/[:space:]]*)(/([^[:space:]]*))?([[:space:]]*\[[a-zA-Z][a-zA-Z]\])?[[:space:]]*(\\((([^()]|(\\([^()]*\\)))*)\\))?[[:space:]]*")
...

function formatCurrency(num) {
    num = num.toString().replace(/\\$|\\,/g,'');
    if (isNaN(num)) num = '0';
...

category_id = category_name.scan(/category-(\d+)/)[0][0]

/(?<part>(w(?!ww)|w(?=www)|w(?=[a-z0-9]+ww)|ww(?=[a-z0-9]+w)|www[a-z0-9]+|[a-vx-z0-9])[a-z0-9]*)\.example\.com/

/^(?:(\d)[ \-\.]?)?(?:\(?(\d{3})\)?[ \-\.])?(\d{3})[ \-\.](\d{4})(?: ?x?(\d+))?$/

# expanded version w/ comments
...

package ircbot;

/**
...

require 'net/http'
require 'uri'
require 'strscan'
...

<?php

function fetch($url,$start,$end){
...

//function that loops through the elements
function __validateForm(theform){
...