Select Code to Download

#!/usr/bin/perl

...
  my $text = s/^.{0,$len}\b\K.*//sr =~ s/<[^<>]*\z//sr . '...';
  dd $text;
  }

"text <one 1> three <two 2> ..."
"text <one 1> three <two 2> four..."
...
"text <one 1> three <two 2> four <five 5> K <six 6> ..."
"text <one 1> three <two 2> four <five 5> K <six 6> ..."
"text <one 1> three <two 2> four <five 5> K <six 6> lastword..."