#!/usr/bin/env perl

use strict;
use warnings;

show( 'Resume' );
show( 'Résumé' );

sub show {
  my $s = shift @_;
  print "The string is: '$s'\n\t";
  for ( split //, $s ){
    printf "%02X ", ord( $_ );
  }
  print "\n\n";

  my $t = uc( $s );
  print "\tUppercase: '$t'\n";
  $t = lc( $t );
  print "\tLowercase: '$t'\n";

  printf "\tlength = %d\n", length( $s );
  {
    use bytes;
    printf "\tbytes = %d\n", length( $s );
  }

  print "\n";
}

__END__