#!/usr/bin/perl
# Text Cleaner
open(jimread,"<keywords.txt");
open(jimwrite,">newkeys.txt");
while(<jimgread>){
chomp;
$tempkey=$_;
$tempkey=~s/[^A-Za-z0-9 ]//igx;
print jimwrite $tempkey . "\r\n";
}
close jimread;
close jimwrite;