use warnings;
use strict;
use IO::Prompt;

print "RegEx Engine 1.0\n", "________________\n";
my $str     = prompt("Gimme a string: ");
my $pattern = prompt("Gimme a RegEx: ");
print $str=~$pattern ? "Yes!" : "No.", "\n";
print "kthxbye\n";