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