Select Code to Download

#!/usr/bin/perl
use strict;
...
}
__END__
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

regex short_word {
   \s* 
...
   & .**?{1..50}
   ] 
}