grep -n "(text" test-tk2.pl 
153:   $left_frame->Label(text => "Perl Chat Client v$VERSION")
172:   $right_frame->Label(text => 'Buddies')