perl ftw