Select Code to Download

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

print join ' ', map $bits{ $_ }, 1 .. 4;

this is my string