bin/dissect_url

 #!/bin/bash
 
 dissect() {
-    echo $* | perl -pe '
+    #
+    # Print "dissected" version of $Url
+    #
+    echo "$Url" | perl -pe '
         s|(\w)(/[^/])|$1\n    $2|;
         s|\?|\n    ?\n        |;
         s|#|\n    #\n        |;
     echo ""
 }
 
-if [[ -n "$1" ]]; then
-    dissect "$1"
-else
-    i=0
-    while read url;
-    do
-        if [[ -z "$url" ]]; then exit 0; fi
-        i=`expr $i + 1`
-        printf "=== url %02d =============================================\n" $i
-        dissect "$url"
-    done
-fi
+main() {
+    local Url=$1
+    local i=0
+    test -n "$Url" \
+     && dissect \
+     && return 0
+    grep . \
+      | while read -r Url;
+        do
+            ((i++))
+            printf '=== url %02d =============================================\n' $i
+            dissect
+        done
+}
+
+main "$@"