Hi!

#!/usr/bin/perl -w

use strict;

my $String="This is Ascii";

$String=~s/(.)/ord($1)/eg;

print "Ascii: $String\n";
[download]

p.s. Might not be the best answer offered here, but it answers your question to the fullest ;)

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;