#!/usr/bin/perl

my $string = "Helloa, this is the string";
my $chars = ['A'..'Z', 'a'..'z', '0'..'9'];

if ($string =~ # Some sexy reqex #) {
    print "Okaj your alright, way to go mate.";
}
else {
    print "No way man, you'r outa here";
}