Line1
Line2
Line3
Line ‘1’
Line ‘2’
Line ‘3’
Line4
Line5

##</code><code>##


Line1
Line2
Line3
NewLine1
(+3) Line ’3’;fac=3
(+2) Line ‘2’;fac=2
(+1) Line ‘1’;fac=1
Line4
Line5
MeanLine

##</code><code>##


#!/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 "$_";
	}

##</code><code>##

/'1'/{
h     
d     
}     
/'2'/G
/'2'/{
h     
d     
}     
/'3'/G
/'3'/{
h     
d     
}