use strict;
use HTML::CleanerUpper ('sterilize');

my %disinfecting_with = (
  soap  => {kills => 'nothing'},
  steam => {doesnt_kill => [ qw/i b/ ]},
  uv    => {kills => 'everything'},
);

my $agent = shift || '';
die "$0: I need a disinfecting agent: soap, steam or UV"
  unless $disinfecting_with{$agent};

my $media = join("\n", <STDIN>);

print sterilize($media, with => $agent);
[download]