Select Code to Download

#!/usr/bin/perl
use strict;
...
huey
dewey
louie

C:\Temp\test>perl test.pl
regex = ^(huey|dewey|louie)$
match:  huey