#!/usr/bin/perl -ln

$arrow  += () = /->/g;
$period += () = /\./g;

END {
	print "arrows occured $arrow times";
	print "periods occured $period times";
}