$regexp = "m?" . <STDIN> . "?";