# converts to all lower case
# - call from pipe

use strict;

# ---------- ---------- ---------- ----------

# open file, get all text
my @theFile = <STDIN>;
my $theFile = join("", @theFile);

# convert case
$theFile =~ tr/[A-Z]/[a-z]/;

# output
print("$theFile");
