Funzione ricerca in Perl

[shishii]

while (<FILE>) {
if (/^[0-4a-c]{16}$/) {
print OUT;
}
}