One thing I am noticing right off is that the $Line variable you are matching against does not appear to contain anything useful. I'm hoping that is a transcription error and not a sign (along with the lack of my's) that you are not using strict. Which would have told you about the misnaming of $CurrentLine to $Line.
If this is indeed a transcription error I apologize and point out that \0 is the proper metacharacter for null in the Perl regular expression (See p163 of the Camel book).