#!/usr/bin/perl -w
use strict;
use warnings;

my $string = '_(()hallo';
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)
    );
}
print $neu;