#!/usr/bin/perl

$hold = "this";
$leave = "that";
$munge = "these";