Mine

<?php	// Just some vars	$quote = false;	$phpstr = "";	// We assume this string holds the perl data	$str = "";	for ($i=0; $i<strlen($str); $i++) {		if ($str[$i] == chr(39) || $str[$i] == chr(34)) {			if (substr($str, $i-1, 1) == chr(92)) {				if (substr($str, $i-2, 1) == chr(92)) {					$quote = !$quote;				}			}			else {				$quote = !$quote;			}			$phpstr .= $str[$i];		}		else {			if (!$quote) {				if ($str[$i] == '{' || $str[$i] == '[') {					$phpstr .= 'array(';				}				else if ($str[$i] == '}' || $str[$i] == ']') {					$phpstr .= ')';				}				else {					$phpstr .= $str[$i];				}			}			else {				$phpstr .= $str[$i];			}		}	}?>