function ol {
    local NAME="$1"
    shift
    eval perl $(grep '^'"$1"'\>' ~/oneliners|cut '-d ' -f2-) "$@"
}