#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

while (my $line = <DATA>) {
	last if $line =~ /__END__/;
	chomp($line);
	print uppercase_special($line), "\n";
}

sub uppercase_special {
	my $string = shift;
	
	my $neu = substr($string,0,1);
	for (my $z = 1; $z <= length($string); $z ++) {
		$neu .= (
			substr($string,$z-1,1) =~ /[^a-z0-9]/
			? uc(substr($string,$z,1))
			: substr($string,$z,1)
		);
	}
	return $neu;
}

__DATA__
öl im  _((überfluß
wie ist das so?
Das ist _astrophysik!
Mag sein, dass es ;;;perl ist.
__END__

ergibt:
öL Im  _((üBerfluß
wie Ist Das So?
DAs Ist _Astrophysik!
MAg Sein, Dass Es ;;;Perl Ist.