my $str;
$str |.= $_ for @strings;  # more or'ing strings
$longest = length $str; 
print "longest: $longest\n";

$longest = length do {my $s; $s |.= $_ for @strings; $s};  # more or'ing strings
print "longest: $longest\n";