#!/usr/bin/perl

while (<>)
   {
   chop;
   @F=split(',');

   $a=substr(@F[0],(length(@F[0])-1));
   @F[0]=~s/[ \-\.,'" ]//g;
   print "\L@F[0]";
   if ($a eq " ") {print " ";}
   }