Hello,

I'm new to Perl and I'm stepping through an online tutorial. I'm trying to count the lines in a file that have strings with double letters in them. This is my code -

[CODE=perl]$file = 'c:\Perl\Beth\f 7.txt';
open(INFO, $file);
$i = 1;
while ($line = <INFO>)
{
$_ = $line;
if (/.+/)
{
print "00$i $line";
$i++;...