<wob_jonas> perl -e open$I,"<",$c="bin/hi"; local $/; $s=<$I>; $s=~s/`words`/\\$ENV{IRC_NICK}/ or die; if (1) { open $O,">",$c or die; print $O $s or die; } print $s;

#!/bin/bash
interp="$1"; script="$2"; shift 2; if [ "$#" -eq 1 ]; then printf '%s\n' "$1"; elif [ "$#" -eq 0 ]; then cat; fi | { shift; $interp "$script" "$@"; }