#!/usr/bin/perl


$words = "This%is%Devious";

$words =~ s/%/ /eg;
$words =~ s/ /%/eg;
}
print "$words\n";