in reply to Stripping dots

TMTOWTDI:
% perl -pli.bak -e'BEGIN{$/=".\n"}' FILES


$_="goto+F.print+chop;\n=yhpaj";F1:eval