in reply to Trying to Create and Write to a file
I'm guessing that you'll need to chomp the value of $CorE after you've read it in from STDIN. You're trying to match on just the value 'C', when perl is probably seeing 'C\n' as its value.
-c
In Section
Seekers of Perl Wisdom