Help for this page
c:\@Work\Perl\monks>perl -wMstrict -le "use 5.010; ... printf qq{'$_' } for @caps; " '1402' '1304' '501' '123'