Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    $have = join (' ', $have =~ /(..)/g);       # spaced pairs
    is ($have, $t->{want}, "Covert $t->{source} into $t->{want}");
}