s/^go/\//g and $count++ while(<FILE>);