perl -nE 'say "$.: $_" if /\.{3}/' source.pl