#------------------------------------------------------------------------------ # perl: file(1) magic for Larry Wall's perl language. # # The ``eval'' line recognizes an outrageously clever hack for USG systems. # Keith Waclena <keith@cerberus.uchicago.edu> # Send additions to <perl5-porters@perl.org> 0 string/b #!\ /bin/perl perl script text executable 0 string eval\ "exec\ /bin/perl perl script text 0 string/b #!\ /usr/bin/perl perl script text executable 0 string eval\ "exec\ /usr/bin/perl perl script text 0 string/b #!\ /usr/local/bin/perl perl script text 0 string eval\ "exec\ /usr/local/bin/perl perl script text executable # a couple more, by me # XXX: christos matches #0 regex package Perl5 module source text (via regex) 0 string package Perl5 module source text