#!/usr/bin/perl -w

while (<>) {
	if (/'3'/) {
		s/^L/(+3) L/g;
		s/'3'/'3';fac=3/g;
		s/^/Newline1\n/g
		} 
	 
	if (/'2'/) {
		s/^L/(+2) L/g;
		s/'2'/'2';fac=2/g;
		} 
	if (/'1'/) {
		s/^L/(+1) L/g;
		s/'1'/'1';fac=1/g;
		} 
	if (/Line5/) {
		s/Line5/Line5\nMeanLine/g
		}
	print "$_";
	}