$if($and(
$or($not(%language%),$eq($lower(%language%),eng),$eq($lower(%language%),en),$eq($lower(%language%),english),$and($or($eq($lower(%language%),und),$eq($lower(%language%),mul)),$rsearch($lower(%album%),^the[ ]+))),
$not($rsearch($lower(%album%),la noche|vai sentando))
),
$foreach(title; album,
$set(_case_core,$rreplace($trim($get(%_loop_value%)), - [Ss][Ii][Nn][Gg][Ll][Ee]$| - [Ee][Pp]$,))
$if($eq(%_case_core%,$upper(%_case_core%)),$set(_case,$title($lower($get(%_loop_value%)))),$set(_case,$title($get(%_loop_value%))))
$set(_case,$replace(%_case%, A , a ))
$set(_case,$replace(%_case%, An , an ))
$set(_case,$replace(%_case%, The , the ))
$set(_case,$replace(%_case%, And , and ))
$set(_case,$replace(%_case%, But , but ))
$set(_case,$replace(%_case%, Or , or ))
$set(_case,$replace(%_case%, Nor , nor ))
$set(_case,$replace(%_case%, For , for ))
$set(_case,$replace(%_case%, Yet , yet ))
$set(_case,$replace(%_case%, So , so ))
$set(_case,$replace(%_case%, As , as ))
$set(_case,$replace(%_case%, At , at ))
$set(_case,$replace(%_case%, By , by ))
$set(_case,$replace(%_case%, In , in ))
$set(_case,$replace(%_case%, Of , of ))
$set(_case,$replace(%_case%, On , on ))
$set(_case,$replace(%_case%, To , to ))
$set(_case,$replace(%_case%, From , from ))
$set(_case,$replace(%_case%, Versus , versus ))
$set(_case,$replace(%_case%, Vs. , vs. ))
$set(_case,$replace(%_case%, V. , v. ))
$set(_case,$replace(%_case%, Etc. , etc. ))
$if($rsearch(%_case%,\sas\s.*\sas\s),$set(_case,$replace(%_case%, as , As )))
$set(_case,$replace(%_case%, as I , As I ))
$set(_case,$replace(%_case%, as You , As You ))
$set(_case,$replace(%_case%, as He , As He ))
$set(_case,$replace(%_case%, as She , As She ))
$set(_case,$replace(%_case%, as We , As We ))
$set(_case,$replace(%_case%, as They , As They ))
$set(_case,$replace(%_case%, as It , As It ))
$set(_case,$replace(%_case%, as This , As This ))
$set(_case,$replace(%_case%, as That , As That ))
$set(_case,$replace(%_case%, as These , As These ))
$set(_case,$replace(%_case%, as Those , As Those ))
$set(_case,$replace(%_case%, Am but , Am But ))
$set(_case,$replace(%_case%, Are but , Are But ))
$set(_case,$replace(%_case%, Is but , Is But ))
$set(_case,$replace(%_case%, Was but , Was But ))
$set(_case,$replace(%_case%, Were but , Were But ))
$set(_case,$replace(%_case%, Be but , Be But ))
$set(_case,$replace(%_case%, Been but , Been But ))
$set(_case,$replace(%_case%, Ain't but , Ain't But ))
$set(_case,$replace(%_case%, Am so , Am So ))
$set(_case,$replace(%_case%, Are so , Are So ))
$set(_case,$replace(%_case%, Is so , Is So ))
$set(_case,$replace(%_case%, Was so , Was So ))
$set(_case,$replace(%_case%, Were so , Were So ))
$set(_case,$replace(%_case%, Be so , Be So ))
$set(_case,$replace(%_case%, Been so , Been So ))
$set(_case,$replace(%_case%, Feel so , Feel So ))
$set(_case,$replace(%_case%, Feels so , Feels So ))
$set(_case,$replace(%_case%, Felt so , Felt So ))
$set(_case,$replace(%_case%, Look so , Look So ))
$set(_case,$replace(%_case%, Looks so , Looks So ))
$set(_case,$replace(%_case%, Seem so , Seem So ))
$set(_case,$replace(%_case%, Seems so , Seems So ))
$set(_case,$replace(%_case%, Bun up , Bun Up ))
$set(_case,$replace(%_case%, Break in , Break In ))
$set(_case,$replace(%_case%, Check in , Check In ))
$set(_case,$replace(%_case%, Come in , Come In ))
$set(_case,$replace(%_case%, Drop in , Drop In ))
$set(_case,$replace(%_case%, Fill in , Fill In ))
$set(_case,$replace(%_case%, Get in , Get In ))
$set(_case,$replace(%_case%, Give in , Give In ))
$set(_case,$replace(%_case%, Join in , Join In ))
$set(_case,$replace(%_case%, Let in , Let In ))
$set(_case,$replace(%_case%, Move in , Move In ))
$set(_case,$replace(%_case%, Tune in , Tune In ))
$set(_case,$replace(%_case%, Turn in , Turn In ))
$set(_case,$replace(%_case%, Walk in , Walk In ))
$set(_case,$replace(%_case%, Bring on , Bring On ))
$set(_case,$replace(%_case%, Carry on , Carry On ))
$set(_case,$replace(%_case%, Come on , Come On ))
$set(_case,$replace(%_case%, Get on , Get On ))
$set(_case,$replace(%_case%, Go on , Go On ))
$set(_case,$replace(%_case%, Hold on , Hold On ))
$set(_case,$replace(%_case%, Keep on , Keep On ))
$set(_case,$replace(%_case%, Move on , Move On ))
$set(_case,$replace(%_case%, Pass on , Pass On ))
$set(_case,$replace(%_case%, Put on , Put On ))
$set(_case,$replace(%_case%, Take on , Take On ))
$set(_case,$replace(%_case%, Turn on , Turn On ))
$set(_case,$replace(%_case%, Try on , Try On ))
$set(_case,$replace(%_case%, Come by , Come By ))
$set(_case,$replace(%_case%, Drop by , Drop By ))
$set(_case,$replace(%_case%, Get by , Get By ))
$set(_case,$replace(%_case%, Go by , Go By ))
$set(_case,$replace(%_case%, Pass by , Pass By ))
$set(_case,$replace(%_case%, Stand by , Stand By ))
$set(_case,$replace(%_case%, Stop by , Stop By ))
$set(_case,$replace(%_case%, Swing by , Swing By ))
$set(_case,$replace(%_case%, Walk by , Walk By ))
$set(_case,$replace(%_case%, O' , o' ))
$set(_case,$replace(%_case%, 'N' , 'n' ))
$set(_case,$replace(%_case%,: a ,: A ))
$set(_case,$replace(%_case%,: an ,: An ))
$set(_case,$replace(%_case%,: the ,: The ))
$set(_case,$replace(%_case%,: and ,: And ))
$set(_case,$replace(%_case%,: but ,: But ))
$set(_case,$replace(%_case%,: or ,: Or ))
$set(_case,$replace(%_case%,: nor ,: Nor ))
$set(_case,$replace(%_case%,: for ,: For ))
$set(_case,$replace(%_case%,: yet ,: Yet ))
$set(_case,$replace(%_case%,: so ,: So ))
$set(_case,$replace(%_case%,: as ,: As ))
$set(_case,$replace(%_case%,: at ,: At ))
$set(_case,$replace(%_case%,: by ,: By ))
$set(_case,$replace(%_case%,: in ,: In ))
$set(_case,$replace(%_case%,: of ,: Of ))
$set(_case,$replace(%_case%,: on ,: On ))
$set(_case,$replace(%_case%,: to ,: To ))
$set(_case,$replace(%_case%,: from ,: From ))
$set(_case,$replace(%_case%,: versus ,: Versus ))
$set(_case,$replace(%_case%,: vs. ,: Vs. ))
$set(_case,$replace(%_case%,: v. ,: V. ))
$set(_case,$replace(%_case%,: etc. ,: Etc. ))
$set(_case,$replace(%_case%,! a ,! A ))
$set(_case,$replace(%_case%,! an ,! An ))
$set(_case,$replace(%_case%,! the ,! The ))
$set(_case,$replace(%_case%,! and ,! And ))
$set(_case,$replace(%_case%,! but ,! But ))
$set(_case,$replace(%_case%,! or ,! Or ))
$set(_case,$replace(%_case%,! nor ,! Nor ))
$set(_case,$replace(%_case%,! for ,! For ))
$set(_case,$replace(%_case%,! yet ,! Yet ))
$set(_case,$replace(%_case%,! so ,! So ))
$set(_case,$replace(%_case%,! as ,! As ))
$set(_case,$replace(%_case%,! at ,! At ))
$set(_case,$replace(%_case%,! by ,! By ))
$set(_case,$replace(%_case%,! in ,! In ))
$set(_case,$replace(%_case%,! of ,! Of ))
$set(_case,$replace(%_case%,! on ,! On ))
$set(_case,$replace(%_case%,! to ,! To ))
$set(_case,$replace(%_case%,! from ,! From ))
$set(_case,$replace(%_case%,? a ,? A ))
$set(_case,$replace(%_case%,? an ,? An ))
$set(_case,$replace(%_case%,? the ,? The ))
$set(_case,$replace(%_case%,? and ,? And ))
$set(_case,$replace(%_case%,? but ,? But ))
$set(_case,$replace(%_case%,? or ,? Or ))
$set(_case,$replace(%_case%,? nor ,? Nor ))
$set(_case,$replace(%_case%,? for ,? For ))
$set(_case,$replace(%_case%,? yet ,? Yet ))
$set(_case,$replace(%_case%,? so ,? So ))
$set(_case,$replace(%_case%,? as ,? As ))
$set(_case,$replace(%_case%,? at ,? At ))
$set(_case,$replace(%_case%,? by ,? By ))
$set(_case,$replace(%_case%,? in ,? In ))
$set(_case,$replace(%_case%,? of ,? Of ))
$set(_case,$replace(%_case%,? on ,? On ))
$set(_case,$replace(%_case%,? to ,? To ))
$set(_case,$replace(%_case%,? from ,? From ))
$set(_case,$replace(%_case%, - a , - A ))
$set(_case,$replace(%_case%, - an , - An ))
$set(_case,$replace(%_case%, - the , - The ))
$set(_case,$replace(%_case%, - and , - And ))
$set(_case,$replace(%_case%, - but , - But ))
$set(_case,$replace(%_case%, - or , - Or ))
$set(_case,$replace(%_case%, - nor , - Nor ))
$set(_case,$replace(%_case%, - for , - For ))
$set(_case,$replace(%_case%, - yet , - Yet ))
$set(_case,$replace(%_case%, - so , - So ))
$set(_case,$replace(%_case%, - as , - As ))
$set(_case,$replace(%_case%, - at , - At ))
$set(_case,$replace(%_case%, - by , - By ))
$set(_case,$replace(%_case%, - in , - In ))
$set(_case,$replace(%_case%, - of , - Of ))
$set(_case,$replace(%_case%, - on , - On ))
$set(_case,$replace(%_case%, - to , - To ))
$set(_case,$replace(%_case%, - from , - From ))
$if($eq(%_case_core%,$upper(%_case_core%)),
$set(_case,$rreplace(%_case%,\\b[Dd][Jj]\\b,DJ))
$set(_case,$rreplace(%_case%,\\b[Vv][Ii][Pp]\\b,VIP))
$set(_case,$rreplace(%_case%,\\b[Ee][Dd][Mm]\\b,EDM))
$set(_case,$rreplace(%_case%,\\b[Bb][Bb][Cc]\\b,BBC))
$set(_case,$rreplace(%_case%,\\b[Uu][Kk]\\b,UK))
$set(_case,$rreplace(%_case%,\\b[Uu][Ss][Aa]\\b,USA))
$set(_case,$rreplace(%_case%,\\b[Ee][Pp]\\b,EP))
$set(_case,$rreplace(%_case%,\\b[Ll][Pp]\\b,LP))
)
$set(_case,$rreplace(%_case%, - Ep$,- EP))
$set(_case,$rreplace(%_case%,\\b[Vv][Ss]\\.,vs.))
$set(_case,$rreplace(%_case%,\\b3[Oo][Hh][ ]*![ ]*3\\b,3OH!3))
$set(%_loop_value%,%_case%)
)
$unset(_case)
$unset(_case_core)
)
$if($not($rsearch($lower($trim(%media%)),^[0-9]*[ ]*[x×]?[ ]*digital media$|^[0-9]*[ ]*[x×]?[ ]*web$)),$if($is_multi(%releasecountry%),$setmulti(releasecountry,$map(%releasecountry%,$if($eq(%_loop_value%,XE),EU,%_loop_value%))),$if($eq(%releasecountry%,XE),$set(releasecountry,EU))))