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

}