if ($answer =~ /^y/i) {
    unlink $file or die $!;
} 
else {
    next;
}