in reply to how to guess the kind of spoken or programming language a text is written in

Depends on how good you want the guess to be. For example, something like this might work: 
@lang = qw/perl c pascal basic english german french/;
print $lang[int(rand(7))];

[download]
  • Comment on Re: how to guess the kind of spoken or programming language a text is written in
  • Download Code

In Section Seekers of Perl Wisdom