Select Code to Download

given($foo) {
    when (/x/) { say '$foo contains an x'; continue }
    when (/y/) { say '$foo contains a y' }
    default    { say '$foo contains neither an x nor a y' }
}

#!/usr/local/bin/perl

use feature qw{ switch };
...
match 3;
match 4;
match 5;

1:
2:
3:
4:
5:

#include <stdio.h>
#include <stdlib.h>
...

    exit( 0 );
}

1: 4
2:
3:
4:
5:

#!/usr/local/bin/perl

use feature qw{ switch };
...

match 'Just another Perl hacker';
match 'Just another Perl slacker';

Just another Perl hacker: Me too!
Just another Perl slacker:

$foo contains an x
$foo contains neither an x nor a y