use strict;
use warnings;
use 5.016;

sub prompt_read {
    print shift;
    chomp( $_ = <STDIN> );
    return $_;
}

say "RegEx Engine 1.0\n________________";
my $str     = prompt_read("Gimme a string: ");
my $pattern = prompt_read("Gimme a RegEx: ");
say $str =~ /$pattern/ ? "Yes!" : "No!";
say "kthxbye";