Select Code to Download

use strict;
use warnings;
...
sub f {
($a,$b)=@_;$b-=3;substr$a,$b++/2,-$b/2,"...";$a
}