http://www.perlmonks.org?node_id=128519


in reply to Seeking a good punchline

"Sorry, don't get your reference"

"No, so I can't replace /your lighter/"

"Depends on the case <PAUSE> I know, I know. I can be insensitive"

1001 hashes walk into a bar, the bartender says, "Sorry fellas, I can't serve your kind beer."
The hashes respond, "We don't want beer...just a slice."

C-.

Update: from an anonymonk friend: "No, but I'll give you $1"

Replies are listed 'Best First'.
Re: Re: Seeking a good punchline
by grantm (Parson) on Jul 17, 2002 at 16:33 UTC

    No, but I'll give you $1

    Surely if there was no match, $1 will be undef :-)

[reply]
      True, but in today's volatile economy, what really is the value of $1?

      C-.

      ---
      Flex the Geek

[reply]
      If there was no match, $1 will be whatever if was before. Which actually *may* be defined: 
      $ perl -wE '"foo" =~ /(.)/; "bar" =~ /f(o)o/ or say $1'
f

      [download]
[reply]
[d/l]

In Section Meditations