Pregunta de entrevista de Synopsys

Perl programming, match regular expressions