#!/usr/bin/perl -w -pi
use strict;

tr/A-Z/ /;