Select Code to Download

#!/usr/bin/perl

...
        print "\n$longestword\n\n";
      }
 }

(my $break2 = $str2)=~ s/(length($str2)>30)/$1\n/mg;
print "\n$break2\n";