P:\test>perl -MO=Deparse -l40eprint,for'002'..'020'
BEGIN { $/ = "\n"; $\ = " "; }
foreach $_ ('002' .. '020') {
    print $_;
}
-e syntax OK

P:\test>perl -l40eprint,for'002'..'020'
002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 019 020