my $title = qx(playerctl $player_arg metadata title);
$title =~ s/(\s|\s\()[Ff]([et]at[. ].*|t.*)//;
$title =~ s/((\s(\(|\[).+(\)|\]).+)|(\s-\s.+))+//;
my $title = qx(playerctl $player_arg metadata title);
$title =~ s/(\s|\s\()[Ff]([et]at[. ].*|t.*)//;
$title =~ s/((\s(\(|\[).+(\)|\]).+)|(\s-\s.+))+//;
push(@metadata, $title) if $title;
for (@metadata){
s/\n//; # remove newlines
push(@metadata, $title) if $title;
for (@metadata){
s/\n//; # remove newlines