Select Code to Download

Select or download this

       "(?<!pattern)"
                 A zero-width negative look-behind assertion.  For exa
+mple
                 "/(?<!bar)foo/" matches any occurrence of "foo" that 
+does not
                 follow "bar".  Works only for fixed-width look-behind
+.

Select or download this

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );