Select Code to Download

use Modern::Perl;

...
'890123456789012345678901234567890123456789012345678901234567890bar';

say substr($+{match},0,80) while (/$re/g);