#!/usr/bin/perl -ause 5.10.0;for(@F){$_%2?last:push@a,$_}say"@a"
2 4 6 7 9 14 18 26
2 4 6
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!