This is not "Perl code that used fgrep". This is (sed and) fgrep executed by Perl, which is a step backward. Put the commands in a shell script.

Everything sed and fgrep do can be done in Perl. If that is your goal, check out the Tutorials here. Then you can try to convert the sed and fgrep commands into Perl. Post questions here if you get stuck. Note there are also tutorials on the web about converting sed to Perl (and vice versa).