+ # compose an identifier from significant parts
+ do {
+ s/^\h+//; # indentation
+ s/\\\n\s*//g; # line continuations
+ s/^[(\h]+//; # subshell
+ s/^echo\ .*?\|\s*//; # preceding input
+ s/\|.*//; # subsequent pipes
+ s/^cat\ //; # local file
+ s/^curl\ // and do { # remote url
+ s/\ -.+//g; # download options
+ s{//[^/\s]+/\K\S*(?=/)}{}; # subdirectories
+ s{^https?://}{}; # http protocol
+ };
+ } for my $name = $_;