Select Code to Download

#!/usr/bin/env perl 
use strict;
...
        $out =~ s/(\d)_/$1:/;
        is ($out, $row->{want});
}