Thanks for your help.. but I need further explainations on the codings.
About the codes right.. may i know what this line means and why do we need to minus the pos() by 3?
my $start = pos() - 3;
Secondly, why is there a need for this substr statement?
substr ($_, $start, $stop - $start), $/;