#!/usr/bin/env perl

use v5.18;
open my $dict, "<", "/usr/share/dict/words";

while (<$dict>)
{
	next unless /^[msixpodualgcer]+$/;
	chomp;
	
	my $ok = do {
		my $testing = $_;
		local $_; # protection
		eval "s/foo/bar/$testing; 1";
	};
	
	say if $ok;
}