Shell Programming and Scripting

#!/usr/bin/perl
use warnings;
use strict;
#use feature ':5.10';
$_ = <<EOF;
You can add you comment if you can  cant reproduce
But don.t change the status
Any way. reply by mail you comment and if you think to change the status
EOF
my ($count, $done, $swap) = (0,0,0);
until($done){
m#^(.+)\n{$count}#g;
  if (/\G(.+)\n(.+)/){
    if ($2 lt $1) {
     s/\G(.+)\n(.+)/$2\n$1/; $swap++;}
    else{pos()=0;}
$count++;}
else {$done = 1 if ($swap == 0); ($count, $swap) = (0,0);}}
print;