Select Code to Download

#!/usr/bin/env perl 
use strict;
...

(my $out = $in) =~ s/(.{20}) /$1\n/g;
print "In:\n$in\n\nOUT:\n$out\n";