# get_ex2.pl # Strengurinn $inntak af-urlaður $inntak = $ENV{QUERY_STRING}; $inntak =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; ($heiti,$gildi) = split('=', $inntak); @ord = sort(split('\+', $gildi)); print "Content-type: text/html\n"; print "MIME-version: 1.0\n\n"; print "<HTML><BODY>"; print "Heiti innsláttarsvæðisins er: $heiti<br>"; print "Upphaflegt innihald þess er: $gildi<br>"; print "og hér eru orðin í stafrófsröð: @ord"; print "</PRE></BODY></HTML>";