C:\>perl -MDevel::Size -E"print Devel::Size::total_size([0..9])"
240
C:\>perl -MDevel::Size -E"print Devel::Size::total_size(qr{^\d$})"
88