diff --git a/share/man/man7/style.perl.7 b/share/man/man7/style.perl.7
index e1387a118fe8..83fa29d13c32 100644
--- a/share/man/man7/style.perl.7
+++ b/share/man/man7/style.perl.7
@@ -104,13 +104,6 @@ default.  Lots of perl4 scripts use
 because the
 .Fa my
 definition didn't exist prior to perl5.
-.Bd -literal -offset 0i
- sub foo {
-   my $var = shift;
-   my @list = ();
-   ...
- }
-.Ed
 .Pp
 In most cases globals should be defined at the top of the code
 using a