#!/usr/bin/perl
use strict;
use warnings;

my @lines = split /\n/, <<'END';
begin{verbatim}
hello all
end{verbatim}
END

my %hash = (whatever => 'world');
s{((?:begin|end))\{verbatim\}}{$hash{whatever}} for @lines;
print "$_\n" for @lines;

__END__
poletti@Polebian:~/sviluppo/perl/pwc/tmp$ perl bug2.pl
world
hello all
world