Why does this run?

#!/usr/bin/perl


$words = "This%is%Devious";

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

If you remove the lone right bracket it will not run, but I can't figure out why this is. Any illumination would be much obliged:)