Help for this page

Select Code to Download


  1. or download this
    $ find . -name "*.pl" | perl -ne "print qq($_) . qw(foo)"
foofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoof
+oofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoof
+oofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoof
+oofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoof
+oofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoof
+oofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoofoo
  2. or download this
    $ perl -ne 'print "$_ foo" ' perl.txt
./.cpan/build/DateTime-0.30/tools/leap_seconds_header.pl
 foo./.cpan/build/DateTime-TimeZone-0.40/t/check_datetime_version.pl
  3. or download this
    $/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );