Select Code to Download

#!/usr/bin/perl
use warnings;
...
# 
@row = ('blah1' x 10, 'blah2' x 10);
write;

blah1blah1blah1b|blah2blah2blah2b|
lah1blah1blah1bl|lah2blah2blah2bl|
ah1blah1blah1bla|ah2blah2blah2bla|
h1              |h2              |