#!/usr/bin/perl

use strict;
use warnings;

my $line1 = 'asdadAADSAsdfsfASASDjljsdASDAS';
my $line2 = 'GKHSKJADHasdadhkadhGHKJHKJHasdada';

for my $word( $line1, $line2 ){
  print "Before: $word\n After: ";
  $word =~ /((\w)\W*(?{ ord $2 > 96 })(?{ print $^R ? uc $2 : lc $2 }))+/;
  print "\n\n";
}