#!/usr/bin/perl
use strict;
use warnings;
use utf8;

while (my $line = <DATA>) {
  last if $line =~ /__END__/;
  chomp($line);
  print "|$line| => |";

  $line=~s/(_\W*)(\w)/$1\U$2/g;

  print "$line|\n";
}

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