Select Code to Download

#!/usr/bin/perl

...
            ($_->{title} || $_->{URL}) . qq{</a><br />} 
            } @{$result->{resultElements}} );
}

#!/usr/bin/perl

...
        map( { qq{<a href="$_->{URL}">} . ($_->{title} || 
$_->{URL}) . qq{</a>
<br />} } @{$result->{resultElements}} );