#!/usr/bin/perl -w

$c = '

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

';

'code' =~ /code(?{eval $c})/;