#!/usr/bin/perl -w
# strip.pl - Don Yang (uguu.org)
#
# ./strip.pl < input.txt
#
# 2015-07-11

use strict;

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