It's been done, of course, although it has to be a bit more due to comments (at least #!/usr/bin/perl).

http://gist.github.com/295032