Run the command inside perl script

I have a command which will run fine in a unix command prompt. Can you tell how to interprete this command inside perl script......

The command is :
perl -pe 's/(\|333\}.*)\}$/$1|1.6}/' FIA.txt

This will search for the number 333 and appends 1.6 at the end of that line....
MNG={{ABC|fdb|222}=12.0|1.3|1.5}
MNG={{DEF|dfg|333}=11.0|0|0}
MNG={{FGH|fcv|444}=4.0|7.0|1.5}

Take the bit inside the single quotes, paste it into a file, and run perl with
perl -p file FIA.txt
The -p flag implicitly adds some extra functionality -- see man perlrun for details.