#!/usr/bin/perl
@filename = `ls  | grep  "^regex\.?[0-9]"`;
print @filename;