$string = "xxabgi"; $_ = "abcghis"; print "Orig: \$string='$string'\t\$_='$_'\n"; $string =~ (0 ? y/a-c/d-f/ : y/g-i/j-l/); print "Changed: \$string='$string'\t\$_='$_'\n"; print "\n"; $string = "xxabgi"; $_ = "abcghis"; print "Orig: \$string='$string'\t\$_='$_'\n"; $string =~ (1 ? y/a-c/d-f/ : y/g-i/j-l/); print "Changed: \$string='$string'\t\$_='$_'\n";