Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    $line =~ s/(.{4})(.{4})/$2$1/g;
}
print join "\n", @lines;