use Pod::Subst qw(keyword123 replacement456)