> GlobalSub <<EOR > sub new_filter { > BEGIN { > package Vend::Interpolate; > $Filter{first_three_uc} = sub > > my $val = shift; > $val = uc($val); > $val = substr($val,0,3); appear to have lost a few chars somewhere along the line... should be: . . $Filter{first_three_uc} = sub { my $val = shift; . . Jonathan Webmaint.