>>535, >>539

perl
if ($str =~ /^\s*(["'])([^\1\s]+)\1/){ $col = $2; }
php
if(preg_match('/^\\s*(["\'])([^\\1\\s]+)\\1/', $str, $m)){ $col = $m[2]; }

正規表現自体がまあ暗号みたいな所はあるのでどっちもどっちだが、PHPの方が
わずかにマゾ度が高いと思う。