Help for this page
Select Code to Download
Select
or
download this
$tmp = join('',@a); print if /^[$tmp]{3}$/;