Re: uppercase/lowercase in a single expression

[chargrill]

In the spirit of TIMTOWTDI, here's a pointless regex version. But if this indeed IS homework, turning this in will certainly impress your teacher.

#!/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";
}

Output:

Before: asdadAADSAsdfsfASASDjljsdASDAS
 After: ASDADaadsaSDFSFasasdJLJSDasdas

Before: GKHSKJADHasdadhkadhGHKJHKJHasdada
 After: gkhskjadhASDADHKADHghkjhkjhASDADA