--- file-4.12/magic/Magdir/perl.orig	2004-11-21 19:34:11 +0300
+++ file-4.12/magic/Magdir/perl	2005-01-05 18:44:01 +0300
@@ -9,14 +9,12 @@
 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
+0	string/b	#!\ /usr/local/bin/perl		perl script text executable
+0	string		eval\ "exec\ /usr/local/bin/perl	perl script text
 0	string		eval\ '(exit\ $?0)'\ &&\ eval\ 'exec	perl script text
 
-# a couple more, by me
-# XXX: christos matches
-#0	regex		package		Perl5 module source text (via regex)
-0	string		package		Perl5 module source text
+# a couple more, by ldv
+0	regex		\^package[\ \	]+[A-Za-z][^.;]*;		Perl5 module source text
 
 # Perl Storable data files.
 0	string	perl-store	perl Storable(v0.6) data