- my %replace =
- ('order' => [quotemeta("\\"),
- '<pagebreak>',
- '&', quotemeta("\n"),
- '"', '\$', '%', '_', '#', quotemeta('^'),
- '{', '}', '<', '>', '£', "\r", '±', '\xe1',
- '²', '³',
-
- ],
- quotemeta("\\") => '\\textbackslash ',
- '<pagebreak>' => '',
- '"' => "''",
- '&' => '\&',
- '\$' => '\$',
- '%' => '\%',
- '_' => '\_',
- '#' => '\#',
- '{' => '\{',
- '}' => '\}',
- '<' => '$<$',
- '>' => '$>$',
- '£' => '\pounds ',
- "\r" => "",
- '±' => '$\pm$',
- '\xe1' => '$\bullet$',
- quotemeta('^') => '\^\\',
- quotemeta("\n") => '\newline ',
- '²' => '$^2$',
- '³' => '$^3$',
- );
-
- map({ $variable =~ s/$_/$replace{$_}/g; } @{ $replace{"order"} });