Like, for just the params part (yes, broken and simplistic):
#!/usr/bin/perl $_="a=b&c=d&e=f&whatever=some thing"; while (s/^([^&]*)=([^&]*)(&|$)//) { print "[$1] [$2]\n"; }
Like, for just the params part (yes, broken and simplistic):