$ lwp-download "http://perlmonks.com/?displaytype=displaycode;node_id=975895" foobar.pl
46.3 KB received in 1 seconds (46.3 KB/sec)

##</code><code>##

$ ack  -A0 "[^-]\btext" NUL foobar.pl
ack: NUL: No such file or directory
foobar.pl
153:   $left_frame->Label(text => "Perl Chat Client v$VERSION")
172:   $right_frame->Label(text => 'Buddies')
200:      print CONF "# You may edit this file with a text editor or\n";
852:        # $request is the text of the request
853:        # put text of reply into $outbuffer{$client}
1221:      print CONF "# You may edit this file with a text editor or\n";

##</code><code>##

$ perl -MTk -e " tkinit->Label( text => 1 );"
unknown option "text" at C:/perl/site/5.14.1/lib/MSWin32-x86-multi-thread/Tk/Widget.pm line 205.
 at -e line 1.