my $num = "123";if($num =~ /^[\d]*[02468]$/){ print STDOUT $num; }
Standard input is empty
Standard output is empty
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!