Select Code to Download

$pattern =~
    /
...
        (X*\.?\!?)          # Zero or more Xs, and maybe a . or !
        $
    /gx;

use strict;
use warnings;
...
unlike( '', $regex, 'Invalid empty string' );
# etc.