Help for this page

Select Code to Download


  1. or download this
    # give stdin a:b or hello:world or etc:etc
    while (<STDIN>){
    ($a,$b) = split(/:/,$_,2);
    print "$a$b\n";
    }
    
  2. or download this
    (split(/:/)[0..1]?  (split(/:/)[0,1]?