#!/usr/bin/perl -w

$c = '

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

';

eval $c;