I need to implement this using regexp.
and im new to perl and do not know
how to use regexp.
please help