use warnings;
use strict;

print "Input regexp: \n";
my $user_input = <STDIN>;

my $string = "abcdef";
if ($string =~ /$user_input/x) {
        print "$string - matches\n";
} else {
        print "$string - no match found\n";
}