if ($row =~ /(.*),(.*)/)
{
  ... 
}