foreach ( @subtitle )
{
	$_ =~ s/º/s/;
	$_ =~ s/þ/t/;
	$_ =~ s/ª/S/;

}

##</code><code>##

@subtitle =~ s/list/list/g;