do
{
print "Enter Yes or No \n";
chomp($input = <>);
if ($input eq 'yes')
{
    print "Yes entered for system.\n";


}
elsif($input eq 'no')
{
    print "No entered for system.\n";

}

}
while ($input =~ /^yes$/ or $input =~ /^no$/);

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;print"\n";}