Help for this page
while (<DATA>) { my ($key, $val) = /^\s*([^:]*?)\s*:\s*(.*?)\s*$/ ... print("[$key:$val]\n"); }
while (<DATA>) { my ($key, $val) = split(/:/, $_, 2); ... print("[$key:$val]\n"); }
www.com | www.net | www.org
No recent polls found