Help for this page

Select Code to Download


  1. or download this
    my (undef, $data) = split / : /, $str;
print "Data: $data\n";