Select Code to Download

#!/usr/bin/perl
use strict;
...
                       "$rows[1][0]:" . do { $rows[2][0] =~ /- (...)/;
+ $1 },
                       "$rows[3][0]:" . substr $rows[2][0], 6, 4;
print $output;