Select Code to Download

#!/usr/bin/perl

...
print "$copy\n";
__END__

my ($short) = $str =~ m/(.{1,$max}\b)/; $short .= '...';