I can give you some inputs. Also like other monks suggested, please try what you have tried so far and where you are stuck
1. Read the line one by one from input file. You have to read more on
+how to read input files in perl.
2. If the line matches word sample_char, then split it based on = and
+take the second part. You have to read more on regular expression and
+ split functions to implement this.
3. Store the second part in an array.
4. Once all the lines are completed, display the output from array