#!perl
use blib;
use B::Debugger;

for (1,2,3) { print if /\d/ }