Select Code to Download

use strict;
use warnings;
...
{
    print ++ $count, qq{: $_\n};
}

1: this
2: is my short
3: string
4: 
5: