Select Code to Download

#!/usr/bin/perl
use 5.016;
use warnings;
...
    say $count . " " . $line;
    $count += length($line);
}

C:\>1048190.pl
0 Hello, my name is John
22 How are you?
34 blah (blah)
45
45 blivitz is in the last line.