Select Code to Download

#! perl -slw
use strict;
...

my $x = "@bits[3,5,7]";
1 while $x =~ m[vwx]g;