Lines Matching refs:led
962 my $led = $del;
963 $led =~ tr/{([</})]>/;
964 $led = '' if $led eq $del;
1063 } elsif( $nc eq $led ){
1133 } elsif( $c eq $led ){ ## unescaped <closing bracketing-delimiter>
1160 return $del . $res . ( $led ? $led : $del );
1169 my $led = $del;
1170 $led =~ tr/{([</})]>/;
1171 $led = '' if $led eq $del;
1186 if( $nc =~ /[\\$del$led]/ ){ ## \ and delimiter
1195 } elsif( $c =~ /[\$\@$led]/ ){ ## magic in Perl's substitution string
1204 return ( $led ? $del : $led ) . $res . ( $led ? $led : $del );