PERL - Deleni textu

[skromny]

open(AAA, "/tmp/file.txt");
@lines = <AAA>;
close&#40;AAA&#41;;


for &#40;$i = 0; $i <= $#lines; $i++&#41; &#123;
	print $lines&#91;$i&#93;;
&#125;

popripade do toho cyklu si daj co potrebujes a rob to pre kazdy "riadok" zvlast... popripade to v tom cykle spoj

for &#40;$i = 0; $i <= $#lines; $i++&#41; &#123;
	$ouptut = $output . " " . $lines&#91;$i&#93;;
&#125;