Select Code to Download

sub nonblank {
    return grep { /\S/ } @_
...

   $temp= (nonblank('foo'))[0]; # Scalar context in assignment, but we
+ only take the first element explicitly
print $temp;