http://www.perlmonks.org?node_id=756033


in reply to Adding <pre> at beginning </pre> at file end

Hi,

Not using a RE like you asked, but you can try something like:

use strict; use Tie::File; my $file = shift; tie my @array, 'Tie::File', $file or die "can't open $file...\n"; unshift @array => '<pre>'; push @array => '</pre>'; untie @array;
HTH,
Mickey