% my %printable_args = %ARGS; % delete $printable_args{$_} for (qw/path title mode/); % $printable_args{'mode'} = 'print'; % my $url = $ARGS{'path'} .'?'. join(';', map { $_."=".$printable_args{$_} } keys %printable_args); <&|/l&>Printable version