# some L<>'s that shouldn't be:
# a) full-blown URL's are emitted as-is
if( $par =~ m{^\w+://}s ){
    return make_URL_href( $par );
}
# --- add this: --- 
elsif( $par =~ m{^([^|]+)\|(\w+)://(.+)}s ) {
    #link text in $1, scheme in $2, everything else in $3
    return sprintf '<a href="%s://%s">%s</a>', $2, $3, html_escape($1);
}