use Pod::Subst qw(keyword123 replacement456) [download]
In reply to Re^2: Interpolate Perl variables in POD by repellent in thread Interpolate Perl variables in POD by repellent