...
$player = 'VLC' if $player =~ /VLC/i;
$player = 'iTunes' if $player =~ /iTunes/i;
## generic, remove everything after first non word char
## hopefully only leaving something like iTunes
$player =~ s/\W.*//;
$player = uc $player; # uppercase it
...