@array=('a.b','a');
@result=grep (/\ba\b/,@array);
print $_."\n"for(@result);

##</code><code>##

Result:-
a.b
a