#!/usr/bin/env perl
use strict;
use warnings;

my $password = <>;
chomp ($password);

$password =~ tr/a-zA-Z/A-Za-z/;
print "$password\n";