clueless
public text v1 · immutable#!/usr/bin/perl while(TRUE) { print "Enter a text\n"; if($_ = <STDIN>) { print "now write a regexp that matches part of the text\n"; if($regexp = <STDIN>) { if($_ =~ $regexp) { print "We have a match"; } } } }