[id:tomyhero:20070426:1177583843] use utf8; use DateTime; use DateTime::Format::Strptime qw(strptime); sub fs_fazzy_birthday { my $age = (DateTime->today - strptime('%Y-%m-%d' => shift))->years; return sprintf '%d0代%s' => int($age / 10), …