#!/usr/bin/perl

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

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