use Acme::Pythonic;
use warnings
use strict
use IO::Prompt

print("RegEx Engine 1.0\n________________\n")
while 1:
	my $str = prompt("Gimme a string: ")
	unless length($str):
		last
	my $pattern = prompt("Gimme a RegEx: ")
	if $str=~$pattern:
		print("Yes!\n")
	else:
		print("No.\n")
print("kthxbye\n")