#! perl
use strict;
$_="Wilmer'?";

tr/a-zA-Z//csd;
print;