in reply to Re^3: upto match please, my one-lina!!
in thread upto match please, my one-lina!!

@t=(@t[1..4],$_,"---\n")

[download]
You are adding two lines for every one line you remove so every second line will be "---\n".

In Section Seekers of Perl Wisdom