#!/usr/bin/perl
$mask = 's/a/XXXX/';
while (<>) {
	s/s/ZZZ/;
	eval $mask;
	print;
}
