Help for this page

Select Code to Download


  1. or download this
    $rx = qr{ (.) (??{ print $1 }) }x;
print "!" if "japhy" =~ $rx;
__END__
japhy
  2. or download this
    $rx = qr{ (.) (??{ print $1; '' }) }x;
print "!" if "japhy" =~ $rx;
__END__
j!