use strict;
use warnings;

print
   map { join q{ }, uc $_->[ 0 ], @$_[ 1 .. $#{ $_ } ] }
   map { [ split m{ } ] }
   <DATA>;

__END__
hello h e l l o
bye b y e
bike b i k e

##</code><code>##

HELLO h e l l o
BYE b y e
BIKE b i k e