Well it seems to be elementary to figure out whether code is Perl or not. For instance, if code contains semicolons at the end of most new lines and commonly used perl keywords / variables (i.e. $_, @_, @ARGV, shift, pop, push), theres a very good possibility that it's Perl. So a button wouldn't even be needed.