#!/usr/bin/ perl
use strict; use warnings;
my $oldpos = "position 20 0 100";
my $pos = "0 -14 120";
my $ending = "cutout.wrl";
-p -e s/$oldpos/$pos/g $ending