>>623 Perl
訂正:
http://ideone.com/AGY6VB