#!/usr/bin/perl -w

use strict;

my $test = "This Is A [Big] [Nasty Old] [Test]";

$test =~ s/\b(\w+)\b/lcfirst $1/eg;
print $test;