foreach my $character ( @ARGV ) {