#!/usr/bin/perl -w

use strict;

map {y/a-zA-Z//cd; print} <>;
print "\n";