#!/usr/local/bin/perl
use warnings;
while (<>) {
        if (/'3'/) {
                s/^L/(+3) L/g;
                s/'3'/'3';fac=3/g;
                s/^/Newline1\n/g;
                print $_, @h;
                }
        elsif (/'2'/) {
                s/^L/(+2) L/g;
                s/'2'/'2';fac=2/g;
                unshift @h, $_;
                }
        elsif (/'1'/) {
                s/^L/(+1) L/g;
                s/'1'/'1';fac=1/g;
                unshift @h, $_;
                }
        elsif (/Line5/) {
                print $_, "MeanLine\n";
                }
        else {
                print;
                }
        }
__END__