#!/usr/bin/perl
# ex05_04.plx
use warnings;
use strict;
$_  =  <<EOF;
            <tutaj umie swoje dane>
EOF

my  ($count, $swaps, $done)  =  (0,0,0);

until  ($done)  {
         m|^(.+\n){$count}|g;    #dopasuj pierwszych '$count' wierszy z $_
         if  ( m|\G(.+)\n(.+)| ) { #sprbuj dopasowa nastpn par
              if  ($2 lt $1)  {        #jeli s w odwrotnej kolejnoci
                    s|\G(.+)\n(.+)|$2\n$1|;    #zamie je
                    $swaps++;
                    }  else  {     #w innym wypadku
                    pos()=0;       #przywr warto ograniczenia \G dla $_
                    }
              $count++;
         }  else  {
               $done = 1 if ($swaps == 0); # skoczone w przypadku gdy nie byo zamian
               ($count, $swaps)  =  (0,0); #przywr wartoci pocztkowe 
         }
}
print;