Select Code to Download

my $min = ( $x < $min ) ? $x : $min;

#! perl -slw
use strict;
...
        : $_ == 2 ? 'two'
        : 'three';
}

my $var;
if( <cond1> ) {
...
else {
    $var = <default>;
}

my $var;
if( <cond1> ) {
...
else {
    $var = <default>;
}

my $var = <cond1> ? <somevalue>
        : <cond2> ? <someothervalue>
...

doSomething     if $var == <somevalue>;
doSomethingElse if $var == <someothervalue>;

my $var = ......;

my $var;

...
else {
   $var = ...;
}