C:\Projekte>perl -w tmp.pl
Writing 'Line 1
line 2
linE 3
' at tmp.pl line 44.
Count is: 0
Count is: 1
Count is: 2