#!/usr/bin/perl

use strict;
use warnings;

while( <DATA> )
{
  for ( split /[, \n]+/ )
  {
    print "'$_'\n";
  }
}