#!/usr/bin/perl

use strict;
use warnings;

my @BADWORDS = ('hell');
$a =  ' H e l l o   w o r l d ! ';
$a =~ tr|a-zA-Z||cd;
$a = lc($a);
print $a;