Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $rx_intro = qr{ special : \d{4} : }xms;
...
 dd $hashref;
"
{ area_code => 617, dow => 0, tod => 14, zip_code => "02205" }