$ perl
-i.bak -p -e 'BEGIN { $/=undef; $search = "position 20 0 100\norientation 0.0 -0.8 0 -0.2\nfieldOfView 0.75\n"; $replace = "position 0 -14 120\norientation 0 -0.3 10 0\nfieldOfView 0.23\n"; } s/$search/$replace/msg;' a1_cutout.wrl